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• Revue des bancs d’essai de 52 logiciels 
parus dans L’O.I. depuis le n°34 

• Annuaire des fournisseurs et des clubs : 
plus de 1500 adresses 
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depuis l’été 82 

• Dictionnaire de l’informatique individuelle 

• ...Et une série d’articles pour vous “guider” 
sur le chemin de votre informatisation 
individuelle 
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de journaux 

Pour recevoir, chez vous le 
Guide 83-84 dès sa parution, il vous 
suffit d’envoyer vos nom et adresse 
ainsi qu’un chèque de 35 FF à 
L’ORDINATEUR INDIVIDUEL (GUIDE 83-84) 
39, rue de la Grange-aux-Belles 
75484 Paris Cedex 10 
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Un petit effort, Sir Clive ! 

Alors même que le Spectrum commence enfin à être com¬ 
mercialisé en France, alors même que Sinclair commer¬ 
cialise enfin les "Microdrives" en Grande-Bretagne, 
alors même que les prix du ZX81 chutent aux Etats- 
Unis (50 $) et en Grande-Bretagne (30 £), le marché 
français semble un peu délaissé par le constructeur 
britannique. 

Direco, l'importateur français, se trouve déjà en rup¬ 
ture de stock sur le Spectrum, et les délais de li¬ 
vraison commencent à s'allonger. Si cette situation 
se poursuit encore quelques mois, elle nous semble 
de nature à pousser nombre de nos lecteurs à délais¬ 
ser le Spectrum malgré les nombreux avantages qu'il 
présente : il y a de fortes chances pour qu'en effet 
certains préfèrent "gonfler" leurs bons vieux ZX81 
avec des extensions de toutes sortes, notamment cou¬ 
leurs et haute définition, plutôt que connaître à 
nouveau les affres de l'attente du facteur ; nombreux 
aussi seront ceux qui se tourneront vers des matériels 
concurrents comme l'Oric qui bien que n'ayant pas pour 
1'instant de mini (ou micro) disquette semblent davan¬ 
tage disponibles, voire comme le Texas TI99/4 dont la 
récente baisse de prix de l'unité centrale (les acces¬ 
soires eux sont toujours aussi chers) porte à réflé¬ 
chir . 

Et comme notre petit doigt nous dit que vers Décembre 
en France, notamment avec l'arrivée du Matra-Tandy 
MC-10, les systèmes voisins du Spectrum seront dispo¬ 
nibles pour moins de 1500 FFTTC, nous nous interro¬ 
geons. Sinclair s'intéresse-t-il suffisamment au mar¬ 
ché français ? 

Nous espérons que oui, et qu'en conséquence l'impor¬ 
tateur sera, livré en quantités suffisantes pour que 
nos craintes s'avèrent non fondées. 

Rendez-vous dans trois mois pour juger sur pièces. 
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Sinclair,.ZX 80, ZX 81, ZX Spectrum sont ides marques déposées. 
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MEMOCALC ANALYSE 

Sur ROM indépendante commutable, puissant et 
souple, permet l'analyse, la simulation et la prévi¬ 
sion financière. 

MEMOPAK Z 80 ASSEMBLEUR 

Sur ROM indépendante commutable. Un assem¬ 
bleur des plus performants avec Editeur, fonctions 
ORG (origine), POS (position), Labels littéraux, etc. 

En permanence à votre disposition. 


V i H Informatique 


LA G A M M Ë ~C 5 M PILÈT E 

POURQUOI CHOISIR LA GAMME MEMOTECH : 

— Tous les produits Memotech sont conçus compatibles. Vous commencez ainsi une gamme d’acces¬ 
soires sans soucis et sans risques. Ex : le Memocalc + 64 K + l/F Centronics vous permettra de sortir 
sur l'imprimante tous vos tableaux (jusqu’à 100 colonnes de 250 lignes !) et cela par des instructions 
existantes et non en passant par des sous-programmes ou manipulations diverses. 

— Les extensions Memotech se présentent sous boîtier aluminium noir harmonisé avec le design du 
.Sinclair. 

4 — Les manuels sent complets et nous fournissons une traduction française. 

— Fiables et puissants, les modules Memotech sont garantis 6 mois. 


MEMOPAK 16 K 

Extension RAM 16 K. Commutable en version Maî¬ 
tre ou Esclave. Autorise les possibilités suivantes : 
16 K seule (en position Maître) 

16 K Maître + 16 K Esclave = 32 K 
16 K Maître + 16 K Sinclair = 32 K 
32 K + 16 K Esclave (ou Sinclair) = 48 K 

MEMOPAK 32 K 

Extension RAM 32 K. S’utilise seule ou avec la 16 K 
Memotech ou Sinclair et fournit alors 48 K. 

MEMOPAK 64 K 

Exploite complètement les possibilités mémoire de 
votre ZX 81 48 K Basic + 8 K pour langage 
machine. 

MEMOPAK HRG 

Haute résolution graphique 192 x 248 2 K Eprom 
avec 30 routines graphiques. Gestion par page 
vidéo de 6,2 K. 

MEMOPAK l/F 

Interface Centronics (port parallèle 8 bits). Majus¬ 
cules, minuscules, double largeur, conversion 
ASCII. Compatible avec module HRG. Câble liaison 
pour SEIKOSMA GP 100 A. 180 F TTC port compris. 

MEMOPAK RS 232 SERIAL INTERFACE 

Interface série RS 232. Le monde des périphériques 
série enfin à votre portée. 


MEMOPAK 16 K 380 F TTC port compi 

MEMOPAK 32 K 545 F TTC port compi 

MEMOPAK 64 K 795 F TTC port compi 

MEMOPAK HHG 495 F TTC port compi 

MEMOPAKI/F 445 F TTC port compi 

MEMOPAK RS 232 645 F TTC port compi 

MEMOTEXT 445 F TTC port compi 

MEMOCALC ANALYSE 445 F TTC port compi 
MEMOPAK Z80 ASSEMBLEUR 

445 F TTC port compi 
CLAVIER MEMOTECH 545 F TTC port compi 


CLAVIER MEMOTECH 

S’interface derrière votre SINCLAIR par carte buf- 
fer. Le clavier original est toujours actif (jeux à 
deux joueurs), touches professionnelles. Légendes 
incrustées. 


MEMOTEXT 

Sur ROM indépendante commutable, 
de traitement de texte très performant, 
de fichiers « textes » et fichiers « coordonnées 
pour mailing, envois sélectifs, etc. 



ET TOUJOURS 
LA GAMME COMPLETE 
DE PERIPHERIQUES 
DE VTR Informatique 
Pour ZX 81, 

Spoctrum ot Jupiter 

Demandez notre catalogue contre 2 Frs 
en tlmfire-poste. 


POINTS DE VENTE VTR INFORMATIQUE — MEMOTECH — POINTS DE VENTE VTR INFORMATIQUE 


Revendeurs province 

Distribuez vous aussi la prestigieuse gamme MEMOTECH, Contactez-nous. 


06600 Antibes: LABORATOIRE D'APPLICATIONS ELECTRONIQUES 35 rue Aubernon, (93) 
34.53.04 

10000 Troyes : MICROPOLIS 29 rue Paillot de Montabert, (25) 72.03.79 
11000 Carcassonne : l’ELEC 91 bis rue Bringer 
13090 Aix-en-Provence : FAN-FAN 10 place de la Mairie, (42) 23.29.91 
13200 Arles : LUDO 27 rue de la République, (90) 96.79.03 

16000 Angoulême : LA BUREAUTIQUE S.A. L'HOMME 5 rue Fanfrelin, (45) 95.27.37 
31000 Toulouse : MIDI DÉTECTION 6 rue Jean-Suau, (61)‘23.99.88 
33000 Bordeaux : SUD-OUEST DÉTECTION 6 rue Ferdinand-Philippart, (56) 81.11.99 
42100 St-Etlenne : ST-ETIENNE COMPOSANTS 2 rue de Terre Noire, (77) 33.50.14 
44800 St-Herblain : MICRO MANIE sillon de Bretagne, (40) 63.07.22 
45000 Orléans : ÉLECTRONIC SYSTEM CENTRE 98 rue du Fg St-Jean, (38) 62.05.17 
49300 Choiet : CHOLET INFORMATIQUE 22 rue du Point de l’Aire, (41) 46.02.40 
51100 Reims : HERCET MICRO INFORMATIQUE 70 rue du Barbatre, (26) 82.57.98 
53000 Laval : RADIO. TÉLÉ LAVAL 95 rue Bernard Le Peccj . (43^ 53.19.70 


57000 Metz: LA MICRO-BOUTIQUE 1-3, rue Paul Bezançon (8) 775.41.56 
60100 Creil : HAPEL-SA 2 bis avenue de l’Europe, 455.03.30 
66000 Perpignan : COMETELEC 23 rue Pascal-Marie Agasse, (68) 54.26.26 
69006 Lyon : ECO INFORMATIQUE 50 cours Vitton, (7) 824.51.18 
69006 Lyon : CRÉÉ 3 rue Bossuet, (7) 824.11.77 

71400 Autun : CHB ÉLECTRONIQUE 20 avenue Ch. de Gaulle, (85) 52.70.26 

75010 Paris : P.I.E.D. 42 boulevard Magenta, (1) 249.16.50 

75013 Paris : VISMO 68 rue Albert, (1) 586.60.10 

77000 Melun : MELUN INFORMATIQUE 9 rue de l’Eperon, (6) 452.45.88 

80000 Amiens : SIP INFORMATIQUE 14 rue Sire Firmin Leroux, (22) 91.08.45 * 

86000 Poitiers : INFORMATIQUE SERVICE 14 boulevard Chasseigne, (49) 88.21.93 

87000 Limoges : RICOCHET 17 bis, boulevard J. Perrin 

8100 St-Die : BRICOTRONIC 93 rue d’Alsace, (29) 55.34.24 

95460 Ezanvilie : COMPOSANTS 95 50 rue de la Marne, 935.00.69 

97400 Saint-Denis'La Réunion : AFFEJEE ELECTRONIC 136A rue Juliette Dodu, BP 805 


L’IMMENSE SUCCES 
DES PRODUITS MEMOTECH 

nous permet de réviser certains 
prix à la baisse ! PROFITEZ-EN ! 


POUR LA FRANCE METROPOLITAINE, NOS PRIX SONT TTC. PORT RECOMMANDE 
GRATUIT. BON DE COMMANDE A RETOURNER A : VTR Département Télématique, 

54 rue Ramey, 75018 Paris .En joignant votre règlement par chèque bancaire ou CCP. 

Délai Indicatif : 2 semaines. 

Adressez-nous une demande pour documentation complète et formulaire de réservation. 
Ne pas téléphoner SVP. 


CATALOGUE GRATUIT, 
COCHEZ ICI □ 

(en joignant 1 timbre à 2 F) 

NOM:. 

Prénom : . 

Adresse : . 

Code postal :. 

Ville: . 


ARTICLE 

QUANTITÉ 

PRIX 
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DISQUETTES CYBORG 

Ces lecteurs de disquettes sont le fruit 
des dernières techniques les plus 
sophistiquées, elles utilisent le stan¬ 
dard 5 pouces 14 et permettent le stoc¬ 
kage de 360 K sur chaque face ! Elles 
possèdent un DOS complet et puissant. 
Mieux encore, ces disquettes sont multi 
ordinateurs !!! Moyennant un nouveau 
connecteur et une disquette maître, 
vous adapterez votre lecteur de dis¬ 
quette à un autre ordinateur...! 


VIDEO PROCESS VP 100 

Votre Sinclair transformé en unité auto¬ 
nome portable clavier prof, repliable 
Auto Repeat Reset. Votre Sinclair 
devient professionnel. 

Moniteur prof 9” NB. Vidéo Inversé 16 K 
ou 64 K RAM incluse. 

Prix avec fourniture du ZX version 16 K : 
2 985 F VERSION 64 K : 3 785 F. 


Reprise de votre ancien ZX81 (en état de 
fonctionnement) :.600 F. 
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Si vous utilisez un ordina¬ 
teur SINCLAIR (ZX 8Ï, 
ZX 80‘ ou Spectruni) ou si 
vous comptez en acheter 
un, sachez que la revue 
ORDI-5 a été créée pour 
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produits matériels et logi¬ 
ciels adaptables sur votre 
SINCLAIR. ORDI-5 vous 
tient au courant de toutes 
les-nouveautés suscepti¬ 
bles de vous intéresser. 


vous. Indépendant de tout constructeur ORDI-5 n’est pas en vente chez les mar- 
ou importateur, ORDI-5 vous fournit chands de journaux.Pour vous abonner 
quatre fois par an des programmes, des ou pour recevoir 1 numéro, il vous suffit 
conseils, des astuces, de nouvelles idées de nous retourner le bon de commande 
d’utilisation. ORDI-5 teste pour vous en ci-dessous. 

toute objectivité et indépendance les Abonnez-vous, vous économiserez 20 % 
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Nom_ 

Adresse. 


BON DE COMMANDE 

à retourner à ORDI-5, 8 me Saint-Marc 75002 PARIS 
_Profession_ 

________ Code postal_Ville_ 


□ Je désire recevoir le n° 1 □ le n° 2 □ le n° 3 □ le n° 4 □ le n° 5 □ de ORDI-5 
(prix d’un n° 25 FF ; Etranger** 30 FF ; par avion 40 FF). 

□ Je désire m'abonner à ORDI-5 pour 1 an, 4 n os , à partir du n°l □ dun°2 □ dun°3D dun°4D dun°5D 
(tarif France 80 FF ; Etranger** 90 FF ; par avion 160 FF). 

(Actuellement ORDI-5 est trimestriel). 

Ci-joint mon règlement indispensable par chèque bancaire □ chèque postal □ virement □ 

* * Pour les pays autres que la France, utiliser un virement en FF compte Crédit Lyonnais Paris n° 30002 00402 8455 J. Les frais de virement sont à la charge de l’acheteur 
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68, rue Albert- 75013 PARIS 
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BON A DECOUPER POUR RECEVOIR LE OU LES CATALOGUES DE VOTRE CHOIX 

Vismo, 68 rue Albert 75013 Paris. 


Cocher les cases correspondantes et retourner à 
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Adresse 


ZX-81 

□ 

SPECTRUM 

□ 
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□ 
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Ci-joint règlement 
20 F par catalogue 
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Le petit livre du ZX-81 

par Trevor Toms 

Conçu pour mettre en valeur les diverses 
possibilités d'utilisation de l'ordinateur 
individuel Sinclair ZX-S1, ce livre est 
aussi destiné à stimuler l’imagination 
des "apprentis programmeurs" qui dé¬ 
couvriront dans les nombreux program¬ 
mes proposés une quantité d'idées à 
exploiter. 

136 pages-72,08 FF/555,00 FB 

Clefs pour le ZX-81 

par Jean-François Sehan 
Comment gagner du temps... sans en 
perdre à glaner de ci de là tous les ren¬ 
seignements techniques dont vous avez 
besoin pour bien utiliser votre Sinclair. 
Les "Clefs” c'est : o La liste des ins¬ 
tructions Basic commentées e les mné¬ 
moniques de l’assembleur Z 80 et leurs 
codes objets e les points d’entrée de 
la ROM Basic o des explications sur les 
variables système. Et c'est également : 
o les caractéristiques des principales 
extensions o une liste d’astuces pour 
mieux utiliser l'écran, les cassettes et les 
programmes en langage machine. 

96 pages - 82,00 FF/635,00 FB 


La pratique du ZX-81 - Tome i 
par Xavier Linant dé Bellefonds 
Un livre qui permettra aux possesseurs 
de ZX-81 ayant assimilé la documentation 
de base, d'exploiter les possibilités de 
leur système dans le domaine de la pro¬ 
grammation avancée et de s'initier aux 
différents niveaux de langage inter¬ 
venant dans la gestion d'un système 
informatique de base (langage évolué, 
variables-systèmes, langage-machine). 
128 pages-72,00 FF/555,00 FB 

La pratique du ZX-81 - Tome 2 
par Marcel Henrot 
Destiné aux possesseurs de ZX-81 ayant 
acquis une bonne expérience de la pro¬ 
grammation Basic approfondie et qui 
souhaitent améliorer la rapidité de leurs 
programmes par des routines en lan¬ 
gages machines. L'ouvrage étudie le 
microprocesseur Z80-A en cinq étapes 
progressives et illustrées d'exemples : 
les .opérations de base, les opérations 
complexes, les problèmes de l'affichage, 
les questions d'animation et la maniéré 
d'exploiter au mieux le programme mo¬ 
niteur. 

152 pages - 82,00 FF/635,00 FB 


Etudes pour ZX 81 - Tome 1 
par Jean-François Sehan 
Un recueil de 20 programmes Basic des 
plus variés, utilisant au mieux les possi¬ 
bilités de graphisme et de création des 
fichiers sur cassettes, qui s'adresse aussi 
bién aux possesseurs de ZX 81 déjà 
rodés, qu'aux novices impatients de voir 
immédiatement "tourner" des pro¬ 
grammes sur leur machine. 

160 pages-82,00 FF/635,00 FB 

Etudes pour ZX-81 - Tome 2 
par Jean-François Sehan 
C'est plus particulièrement au langage 
assembleur appliqué aux,modules d'ex¬ 
tension comme l’imprimante ou la carte 
génératrice de caractères qu'est dédié 
ce 2 e tome. Ses 20 programmes vous 
permettent de créer des mélodies, de 
dessiner des histogrammes ou tout 
simplement de jouer au Baccara,' aux 
Piranhas et au Taquin. 

176 pages - 82,00 FF/635,00 FB 


102 programmes pour Sinclair ZX 
et Timex 

Sinclair ZX 81 et ZX Spectrum - 
Timex 1000, 1500 et 2000 
par Jacques Deconchat 
Apprendre en se distrayant, tel est l’ob¬ 
jectif de ce livre. Au fil de ces 102 pro¬ 
grammes de jeux, il vous guidera dans 
l'exploration du Basic Sinclair. Les 
programmes sont classés par niveaux, 
chaque niveau faisant appel à de nou¬ 
velles connaissances. Des instructions 
correspondant à chaque niveau sont 
présentées et commentées avec des 
remarques concernant les points spécifi¬ 
ques du ZX81 et ZX Spectrum. Tous les 
jeux sont décrits et les programmes 
abondamment commentés; un exemple 
d'exécution est fourni pour chaque ver¬ 
sion (ZX81 et ZX Spectrum). Ecrits pour 
le ZX81 dans sa version de base (1K 
octet), pour le ZX Spectrum et pour les 
Timex 1000,1500 et 2000. 

240 pages-102,00 FF/785,00 FB 
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|| CRÉATEURS CONSEILS 


ZX Spectrum. Un incomparable outil informatique. 

"L’esprit Sinclair"est en lui 


E N MATIÈRE de micro-ordina¬ 
teurs, tout le monde connaît 
Sinclair. Car Sinclair c’est déjà la 
découverte dé l’informatique par 2 
millions de passionnés dans le 
monde, que l’on appelle déjà les 
Sinclairistes. 

Si vous possédez un micro-ordina¬ 
teur ZX Spectrum, vous possédez 
en même temps « l’esprit Sinclair» : 
expérience, technique et assis¬ 
tance. C’est incomparable. 



Son et couleurs pour vous détendre a vec 
les cassettes de jeux. 


Force de l’esprit 

Avec le ZX Spectrum, Sinclair s’est 
surpassé. 8 couleurs, un générateur 
de sons et une haute résolution gra¬ 
phique pour programmer avec pré¬ 
cision. 

Un clavier à touches classiques 
pour une frappe rapide, plaisante 
et facile. 

Une interface cassette très évoluée 
pour ne jamais perdre vos program¬ 
mes. 

De plaisir en talent et de force en 
simplicité, le Spectrum est un outil 
sûr, largement éprouvé de par le 
monde. Mais « l’esprit » ne s’est pas 
contenté d’être puissant, il est aussi 
splendide dans sa robe noire griffée 
du spectre. 

Esprit de synthèse 
Le ZX Spectrum fonctionne en 
Basic étendu (16 K ROM) et pos¬ 
sède toutes les fonctions et opéra¬ 
tions mathématiques intégrées. 
Mais sa force se révèle encore plus 
dans ses caractéristiques uniques : 
visualisation des mots clefs pour 
une programmation plus rapide, 


contrôle de syntaxe et émission 
d’un code d’erreur. 

Comme tant d’autres Sinclairistes, 
aidés du seul manuel de program¬ 
mation, vous apprendrez l’informa¬ 
tique facilement, rapidement et 
sans limites. 

Largeur d’esprit 

Les meilleures mémoires sont les 
plus grandes. Avec 48 K RAM de 
mémoire vive, le Spectrum est à la 
hauteur. Il existe également une 
version de base 16 K, extensible à 
48 K. 

Cette puissance est renforcée par 
l’utilisation possible d’autres langa¬ 
ges : outre le Basic, vous pouvez 
programmer en Pascal, en Langage 
Machine et même en Forth, grâce 
aux logiciels créés à cet effet. 

Esprit d’équipe 

Tout comme l’esprit Sinclair est 
dans le Spectrum, vous le retrouve¬ 
rez dans ses périphériques et ses 
logiciels : l’imprimante ZX, les car¬ 
tes entrées/sorties, l’interface Cen¬ 
tronics RS 232, les manettes de 
jeux et une importante série de pro¬ 
grammes divers. 

Vous décollerez avec le simulateur 
de vol «Cobalt» ou frissonnerez 
avec «Panique», vous mesurerez 
vos connaissances avec « Histoire » 
ou «Mathématiques», vous suivrez 
vos transactions bancaires avec 
« Finance »... et beaucoup d’autres à 
découvrir. 

Le ZX Spectrum n’est pas seul. Tout 
est prêt autour de lui pour l’utiliser à 
plein rendement. 

Une haute résolution graphique pour des 
applications pratiques. 




Esprit pratique 

Le ZX Spectrum, c’est la mise en 
œuvre facile et rapide d’un micro¬ 
ordinateur évolué. En découpant 
simplement le bon de commande 
ci-contre, vous recevrez votre ma¬ 
chine accompagnée de son manuel 
de programmation en français. 
Service après vente et conseils 
d’utilisation vous seront proposés 
sans limitation. 

Demain l’informatique sera partout 
indispensable. Le ZX Spectrum de 
Sinclair et sa vaste gamme sont 
bien les outils informatiques qui 
conviennent à tous pour participer 
à ce futur proche. 


Nous sommes à votre disposition pour 
toute information au 359.72.50. 
Magasins d'exposition-vente : - Paris 
-11, rue Lincoln, 75008 (M° George V) 
- Lyon -10, quai Tilsitt, 69002 (M° Belle- 
cour) - Marseille - 5, rue St-Saëns, 
13001 (M° Vieux-Port). 














Fiche technique 

Unité centrale 

Microprocesseur Z 80 A, 3,25 MHz. 
RAM 16 K ou 48 K. 

ROM 16 K. 


demi-tons (10 octaves). Amplification 
par prise micro. 

Langages 

Basic intégré, Pascal, Assembleur et 
Forth en option. 

Interface magnétophone 

Vitesse de transmission : 1500 bauds. 


Sauvegarde dé pages mémoire et 
tableaux séparés. Fonctions VERIFY et 
MERGjf 
Ecrani 

Raccordement sur prise antenne pour/ Présf* t 
récepteur PAL ou prise ( an 

PERITEL pour récepteur SECAM. I _^ICoh 

(TîorîrBrn^inri(p'===>'===''=>'==='===»\ Ovj4 , 


A retourner à Direco International - 30, avenue de Messine, 75008 PARIS. 


Attention : seul Direco International 
est habilité à délivrer la garantie 
Sinclair ; exigez-la en toutes circons¬ 
tances. 


Clavier | Oui, je désire recevoir sous 3 semaines, avec le manuel gratuit de programmation et le bon de garantie Direco International, par 

40 touches avec répétition auto- | paquet poste recommandé : 

matique et témoin sonore. Système n | e Sinclair ZX Spectrum 

d’entrée de toutes les fonctions par “ 16 K RAM PAL pour 1490 F TTC . l'adaptation PERITEL pour 360 F TTC l'imprimante ZX 

mots clés. 1 48 K RAM PAL pour 1965 F TTC f l'adaptation N et B pour 190 F TTC pour 690 F TTC 


Affichage 

32 x 24 caractères, majuscules ou 
minuscules. Haute définition graphi¬ 
que 256 x 192 (49.152 points adres¬ 
sables individuellement). 

Générateur de caractères 
ASCII étendu (matrice 8 x 8). 21 carac¬ 
tères programmables. Possibilité de 
redéfinition de l’ensemble des caractè¬ 
res. 

Couleurs et sons 

8 couleurs. Haut-parleur intégré 130 


Je paie par CCP ou chèque bancaire établi à l’ordre de Direco International, joint au présent bon de commande (aucun chèque 
n’est encaissé avant l’expédition du matériel). 


Nom 

Rue 

Commune 


Prénom 

N” 

Code postal 


Tel. 


Signature (pour les moins de 18 ans, 
signature de l’un des parents) 

Au cas ou je ne serais pas entièrement satisfait, je suis libre de 
vous retourner mon ZX Spectrum dans les 15 jours. Vous me 
rembourserez alors entièrement. 


in 

O 

O 


la micro-ordination 



















102 programmes pour Sinclair ZX 
etTimex 

Sinclair ZX 8i et ZX Spectrum-Timex 
1000,1500 et 2000 
par JacquesDeconchat 
Apprendre en se distrayant, tel est 
l'objectif de ce livre. Au fil de ces 
102 programmes de jeux il vous guidera 
dans l'exploration du Basic Sinclair. Les 
programmes sont classés par niveaux, 
chaque niveau faisant appel à de nou¬ 
velles connaissances. Des instructions 
correspondant à chaque niveau .sont 
présentées et commentées avec des 
remarques concernant les points spéci¬ 
fiques du ZX81 et du ZX Spectrum. Tous 
les jeux sont décrits, et les programmes 
abondamment commentés ; un exemple 
d'exécution est fourni pour chaque 
version (ZX81 et ZX Spectrum). Ecrits 
pour le ZX81 dans sa version de base 


(1 K octet), pour le ZX Spectrum et pour 
les Timex 1000,1500 et 2000. 

240 pages-102;00 FF/785,00 FB 


La pratique .du ZX Spectrum 

par Xavier Linanl de Bellefonds 
Tome 1 

Cet ouvrage exploite toutes les possi¬ 
bilités du ZX Spectrum dans le domaine 
de la programmation avancée. L'auteur 
y expose d'une manière soigneusement 
graduée : la définition de caractères et 
les fonctions de chaîne, la haute défi¬ 
nition graphique et la puissance de calcul 
(graphiques en trois dimensions...), la 
couleur et le son, les techniques d'accès 
direct à la mémoire et l'utilisation du 
langage machine. 

168 pages - 82,00 FF/635,00 FB 


Pratique du ZX Spectrum - Tome 2 
par Marcel Henrot 
Cet ouvrage, consacré au langage ma¬ 
chine, est accessible à tous ceux qui ont 
assimilé la programmation Basic appro¬ 
fondie. La corrélation entre les comman¬ 
des Basic et les cddes machine a été la 
préoccupation principale de l’auteur, qui 
amène progressivement le lecteur à la 
compréhension de routines de plus en 
plus complexes. Les trois aspects prin¬ 
cipaux du Spectrum : le son, la couleur 
et la haute résolution font l'objet de 
nombreuses routines dans tous les cha¬ 
pitres. Le lecteur attentif élaborera des 
programmes personnels en code ma¬ 
chine quand il aura refermé ce livre. 

168 pages - 82,00 FF/635,00 FB 


S\COB 


Le petit livre du Spectrum 

par Trevor Toms 

Destiné aux utilisateurs du ZX Spectrum, 
ce livre présente douze applications lu¬ 
diques exploitant au maximum les pos¬ 
sibilités de graphismes, de sons et de 
couleurs du dernier-né de chez Sinclair. 
Les lecteurs apprécieront tout particu¬ 
lièrement un chapitre clair et complet 
sur l’utilisation des codes machines, 
ainsi que celui concernant l'emploi de 
la ROM pour ses propres programmes.' 

168 pages-82,00 FF/635,00 FB 





au Canada 
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Tél. : {514) 935.13.14 


P.S.I. DIFFUSION 
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Notre courrier de ce mois-ci émane essentiellement 
de lecteurs rencontrant des problèmes lors de l'uti¬ 
lisation de leur module mémoire 16K octets. 

Monsieur Claude ARLETTAZ se plaint notamment de l'ap¬ 
parition de bandes noires horizontales sur l'écran 
en présence de n'importe quel module 16K, alors que 
son système ZX81 en l'avait jamais déçu deux ans du¬ 
rant. 

Il faut distinguer deux éventualités, les précisions 
fournies par notre lecteur ne permettant pas de tran¬ 
cher de façon certaine : si les bandes noires pren ¬ 
nent la place de l'image normale (absence du curseur 
K à la mise sous tension), alors il faut conclure à 
un mauvais contact au niveau du connecteur arrière, 
suite à un usage intensif. Si le défaut persiste mal¬ 
gré le remplacemnet du module mémoire, il faut -incri¬ 
miner le connecteur de l'ordinateur lui-même, nette¬ 
ment moins robuste que les parties femelles dont sont 
équipés les accessoires embrochables. 

Bien souvent, un nettoyage soigneux au moyen d'une 
bombe à contacts et d'un coton-tige procure une amé¬ 
lioration durable. Il arrive aussi, hélas, que le dé¬ 
faut se situe-au niveau d'une usure de l'encohe de 
détrompage usinée dans le circuit imprimé. Il est pos¬ 
sible, avec beaucoup de patience, de la restaurer à 
l'aide d'Araldite : il faut, après avoir sorti le cir¬ 
cuit, boucher complètement l'encoche puis, après sé¬ 
chage total, pratiquer une ouverture neuve, de lar¬ 
geur appropriée. Notons que ce défaut, s'il n'est cor¬ 
rigé à temps, peut entraîner la destruction de la ma¬ 
chine car, si le détrompeur s'élargit de trop, un 
court-circuit peut finir par se produire entre les 
lignes d'alimentation 5 et 9 volts ! 

Si par contre des bandes noires se superposent à une 
image normale par ailleurs, il s'agit tout simplement 
d'un parasitage des circuits vidéo par le convertis¬ 
seur de tension du module 16K. Le remède consiste à 
insérer deux réseaux RC de découplage (résistances 
de 47 ohms encadrées par deux condensateurs de 0,1 à 
J microfarad) dans les lignes d'alimentation, quitte 
à couper certaines pistes du circuit imprimé de la 
machine. Le meilleur point d'intervention se situe 
au niveau de l'entrée d'alimentation du modulateur 
UHF, mais on peut aussi équiper les sorties 5 et 9 
volts du connecteur arrière. 

Les perturbations dues au convertisseur de l'exten¬ 
sion mémoire peuvent aussi affecter le magnétophone : 
ainsi, Monsieur André Simon se plaint de ne jamais 
parvenir à recharger les programmes sauvegardés en 


présence de son module 16K, car l'amorce silencieuse 
de ses enregistrements est trop parasitée. Les remè¬ 
des cités plus haut peuvent résoudre ce problème, mais 
il faut aussi vérifier si le raccordement simultané 
des cordons EAR et MIC n'aggrave pas les choses. Ega¬ 
lement, la proximité exagérée du récepteur TV peut 
induire un parasitage supplémentaire à 15 kHz. Chacu¬ 
ne de ces perburbations considérée isolément peut fort 
bien rester tolérable, alors qu'ajoutée à d'autres, 
elle risque de constituer la goutte qui fait déborder 
le vase ! Notons en passant que le ZX81, surtout équi¬ 
pé en 16K, émet de sérieux rayonnements HF capables 
de perturber gravement la réception radio AM (GO, PO, 
OC) dans un rayon de plusieurs centaines de mètres. 

Il convient de tenir compte de cela en cas d'utilisa¬ 
tion dans une station de radio-amateur ! 

Enfin, Monsieur Serge SADOIS pose le problème du rac¬ 
cordement d'une source de signaux vidéo (un ZX81 trans¬ 
formé selon nos plans) à un moniteur du commerce muni 
d'une prise non standard. La variété considérable des 
branchements non normalisés doit nous conduire à con¬ 
seiller à nos lecteurs se trouvant dans ce cas, de 
consulter un agent de la marque concernée : les con¬ 
séquences d'une erreur de raccordement peuvent être 
trop graves pour négliger ce risque ! 


P. G. 


J'ai lu dans un prospectus que les ZX acceptaient 
des chaînes de longueur infinie ; qu'est-ce que cela 
veut dire ? (Hélène Luc, Clermont-Ferrand) 

* Une chaîne est une série de caractères que l'ordi¬ 
nateur peut traiter simultanément : un texte d'une 
certaine longueur constitue ainsi une chaîne (par op¬ 
position à des valeurs numériques qui sont traitées 
différemment par l'ordinateur). La plupart des BASIC 
n'acceptent pas que ces chaînes dépassent 256 carac¬ 
tères : dans le BASIC Sinclair elles peuvent être 
aussi longues que l'autorise la capacité mémoire, ce 
qui peut rendre des services incalculables en matière 

de fichier lorsqu'on ne veut pas perdre de place ; 

un ordre comme celui-ci : 10 DIM A$ (2000) qui crée 

d'un seul coup l'espace pour une chaîne de 2000 carac¬ 

tères n'est pas compréhensible pour les BASICs les 
plus courants, malgré son immense utilité. Il en va 
de même des tableaux indicés du type DIM A(N,M), les 
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Sinclair peuvent traiter des tableaux de plus de 256 
lignes ou colonnes de manière individualisée, ce que 
ne peut faire à notre connaissance aucun ordinateur 
de la même catégorie de prix. 

-*-J'ai réalisé un programme de solitaire intéressant 
sur 1K mais je n'ai pas d'imprimante, comment puis-je 
être certain qu'il n'y aura pas de faute à la recopie 
si la liste manuscrite, que je vous enverrais bien, 
devait vous intéresser ? (F. Berthoumieux, Sarcelles) 

* Si votre programme tient sur 1K, nous pouvons envi¬ 
sager de le transcrire manuellement pour éditer une 
liste : s'il fait plus ce serait prendre un gros ris¬ 
que de voir se glisser des erreurs incontrôlables 
pour qui n'a pas écrit le programme lui-même. Voilà 
notre conseil : il faut nous envoyer une cassette sur 
laquelle le programme est enregistré plusieurs fois 
de suite, la cassette étant accompagnée d'une feuille 
portant quelques explications ; nous pourrons alors 
tester sa qualité et en faire profiter nos lecteurs. 
Les cassettes sont dûment classées et soigneusement 
rangées et sont toujours retournées à leur auteur a- 
près un processus plus ou moins long qui dépend no¬ 
tamment de la publication. Pour ce qui est des arti¬ 
cles, il n'est pas nécessaire qu'ils soient dactylo¬ 
graphiés, mais alors prenez votre plus belle plume. 

-*■ Je vous ai écrit une lettre il y a plus de deux 
mois pour vous demander un renseignement technique 
et je n'ai toujours pas de réponse... (H. Davignet, 
Tours) 

* Votre lettre n'est pas perdue ! Elle va faire l'ob¬ 
jet avec plusieurs autres qui posent le même problè¬ 
me, d'une réponse collective dans un prochain numéro 
d'ORDI-5. 


REGION ALSACE 


POUR Zx80/Zx81 

CARTE MULTIFONCTION C.I.T. 
avec 8K de ROM supplémentaire 
. SON sur T.V. (3 octaves) 
au clavier, par programme ou préenregistrée 
. HAUTE RÉSOLUTION GRAPHIQUE 
sur impr. Sinclair axes gradués et quadrillage 
10 PAGES ÉCRAN EN MÉMOIRE 
écriture/lecture priorité au programme 
Inversion vidéo par soft partielle/totale 

INTERFACE IMPRIMANTE TYPE CENTRONICS... 
Renumerotation du basic au pas choisi 
PROGRAMMATION D’EPROM 
Enregistrement de programmes en basic, 

+ data, en assembleur. 

Affichage des registres Z80 en hexa, 
binaire, variables Sinclair en décimal 
Ecriture géante, scroll inverse, clear partiel, 
sirène, adresse en zone variables, etc. etc... 

Pas de réservation de mémoires, pas de chargement! 
Messages d'erreur sonores et littéraux 
Prix avec manuel d'utilisation T.T.C. 685.- FF 
C.I.T. 4, rue de Bâle 
68300 SAINT-LOUIS Tél. (89) 67.76.01 


--Je possède le livre : "Le Basic et l'Ecole de J. 
Gouet", l'auteur' y utilise le BASIC standard avec no¬ 
tamment les ordres LEFT$, MID$ et RIGHT$ ; comment 
puis-je transcrire les programmes sur mon Sinclair 
qui ne possède pas ces ordres ? (P.P. Poncet, Ville- 
neuve St Georges) 

* La fonction de découpage de chaîne remplace avan¬ 
tageusement les ordres ci-dessus ; voici comment tran¬ 
scrire : 


10 

LET A$ 

= "ORDINATEUR 

10 LET A$ = "ORDINATEUR" 

20 

LET B$ 

= LEFT$ (A$,4) 

20 LET B$ = A$ 

( 1 

T0 

4) 

30 

LET C$ 

= MID$ (A$,4,2) 

30 LET C$ = A$ 

(4 

T0 

6) 

40 

LET D$ 

= RIGHT$ (A$,3) 

40 LET D$ = A$ 

(8 

T0 

10) 

Dans les 

deux cas on a B$ 

= "0RDI» 






c$ 

= "IN" 






D$ 

= "EUR" 





Pour l'ordre MID$ si l'on ne connaît pas la longueur 
de la chaîne on peut faire A$ (LEN A$ +1 -3 TO LEN 
A$ ). 


--Comment pourrais-je annuler l'effet de la touche 
BREAK dans un programme BASIC ? (M. Prosperi, Vanves) 

* Impossible. Pendant l'exécution d'un programme BA¬ 
SIC, la touche BREAK est constamment lue et relue 
pour savoir si vous souhaitez interrompre l'exécution, 
ceci dans le cadre d'une routine ROM qui décode les 
touches du clavier : si vous voulez tromper cette 
routine de lecture du clavier, il faut que votre pro¬ 
gramme soit intégralement en langage machine. 

Dans Côté Court du numéro 3, je n'arrive pas à ren¬ 
trer la ligne 14. 

* Elle est difficile à entrer car elle comporte de 
nombreuses fonctions logiques ; respectez bien la suc¬ 
cession des parenthèses. 


Réponse à' l'exercice : 1 jeu sur 1 jeu d'ORDI-5 n° 3 . 

Voici la solution qui se rapproche le plus de la nô¬ 
tre : elle est due à Francis Jeantin de Nanterre : 


10 R£.« 1. "P3&5.W SÜ.»! 

11 REM - 

12 REM (C.tORDI-5 
15 ROND 
3S LET Ü=B 
4-0 LET X = 16 
41 LET U = RNE>*4 
4-2 LET P=RND*54 
4-3 LET S= (P<=32) -1* (P>32) 

4.4 LET B=B» fS + 1) +32 * fS + l> 

4-5 PRXNT . _ ' 

*50 GO^JB50 
55 GOTO 100 
60 PRXNT RT 20,X-3;" 

70 PRXNT RT 21,X-2;" 

75 RETURN 
100 FOR I=P TD B STEP S*U 
110 LET 0=4.1-,5* tP-I) *(P-X) 

120 IF O<0 THEN GOTO 4.00 
130 PLOT I,ü 

14-0 IF XNKEY$=" " THE N NEXT I 
150 LET X=X+(INKEYS ="©■■)- (INKEV 

J 

160 GOSUB 60 
170 NEXT I 

4.00 IF I<X*2+1 RND I>X»2-1 THEN 

GOTO 600 

4.10 PLOT 1-1,0 

4.15 PLOT 1,0 

4.20 PLOT 1 + 1,0 

430 PRXNT RT 20,1X2+2;"RATE" 

440 CLS 
450 GOTO 30 

600 PRINT RT 20, I/'2+2j "BRRUO" 

510 CLS 

520 GOTO 40 
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LE RAYON DU SPECTRUM 


PETIT BAZ-HARD 


En matière de littérature spécialisée, le Spectrum 
est en train de connaître la même fortune que son pré¬ 
décesseur le ZX81 ; on peut compter déjà près de 20 
titres en langue anglaise ! 


JE TE REÇOIS SINC SUR SINC 


Nouvelle de première importance pour ceux qui sont 
passés du ZX81 au Spectrum : un ZX Slowloader (char¬ 
gement lent) permettrait de lire sur Spectrum les 
programmes composés pour ZX81 : l'interface du Spec¬ 
trum lit les cassettes à 1500 bauds, sa vitesse de 
lecture serait réduite aux 300 bauds des cassettes 
enregistrées par le ZX81. Il suffirait ensuite à 1' 
utilisateur d'enlever les lignes correspondant aux 
ordres FAST et SLOW (qui n'existent pas sur Spectrum) 
et à renuméroter les PEEK et POKE éventuels. Les per¬ 
formances de ce dispositif, comme sa configuration 
(hard ou soft) ne nous sont pas encore bien connues. 
(ROBOTICS) 

PEU D'APL ENCORE MOINS D'ELUS 


Le langage APL est désormais disponible sur ZX81. 
C'est la société canadienne Telecompute Integrated 
Systems qui le propose pour environ 2000 F, ce prix 
élevé comportant la mémoire 64K nécessaire pour l'im¬ 
plantation de ce langage (l'interpréteur APL fait à 
lui seul 16K). La nouvelle présenté un intérêt plus 
théorique que pratique pour les possesseurs de ZX 
car l'APL est un langage assez peu répandu dans les 
micros individuels étant donné sa difficulté. La ca¬ 
ractéristique de ce langage est son extrême concision 
et sa capacité à traiter les calculs complexes, ces 
deux qualités se payant très cher, les programmes 
devenant d'une lisibilité quasi-nulle et leur main¬ 
tenance très difficile à organiser. Désormais le ZX 
81 est presque totalement polyglotte. 

SOFT QUI PEUT ! 


La cassette de jeux la plus démente pour Spectrum 
paraît bien être, à l'heure actuelle, le "Terror Dak- 
til" de Melbourne House, jeu en quatre dimensions, à 
graphiques 3D que son auteur, AlanBlake, déclare avoir 
mis 5 mois à écrire avec l'intention, selon ses pro¬ 
pres termes, que "ça jaillisse hors de l'écran !". 

Nos essais, dont vous serez bientôt instruits, con¬ 
firment ce résultat agressif ! 


Il est possible au propriétaire de Spectrum et ZX81 
de se faire plaisir à peu de frais avec quelques ac¬ 
cessoires peu coûteux mais amusants : un petit socle 
pour surélever son appareil afin de l'empêcher de 
chauffer et lui donner une inclinaison plus ergono¬ 
mique des plaques ajourées en plastique souple qui 
viennent se superposer au clavier pour l'affectation 
explicite des touches, (Softeach Ltd), des carnets 
de grilles haute résolution pour faciliter la concep¬ 
tion de graphiques etc. Tout ceci bien sûr pour le 
hobbyist britannique : l'utilisateur français n'a pas 
encore droit à ces petites attentions. 

On annonce pour le grand concurrent du Spectrum, l'O- 
RIC 1, une belle table traçante 4 couleurs au design 
approprié à l'ordinateur. Cette table traçante, appe¬ 
lée MCP 40 sera vendue aux environs de 2000 F dans 
un avenir non déterminé. Quand Sinclair se résoudra- 
t-il à doubler son imprimante de base d'une table tra¬ 
çante de ses appareils ? 

La société Mémotech qui fabrique de très beaux modu¬ 
les d'extension pour le ZX81, après avoir produit des 
extensions mémoire (16K, 32K et 64K) ainsi que des 
interfaces (série et parallèle, etc.) se lance main¬ 
tenant dans les extensions de soft sur EPR0M : Memo- 
calc, qui est un "visicalc", Mémotext - traitement de 
texte et un assembleur Z80. Ce numéro contient une 
analyse plus détaillée de la carte Memotech HRG. 
Mémocalc peut traiter 7000 nombres en 250 lignes de 
99 colonnes. Le traitement de texte est capable de 
traiter 80 caractères par ligne, contient des minus¬ 
cules et des lettres en grande dimension. 

Le prix moyen de ces produits est de 30 livres soit 
370 F. 


Le gros du Soft pour le Spectrum est arrivé en France 
et figure notamment sur les listes de DIREC0 INTERNA¬ 
TIONAL : les cassettes DEVPAC (assembleur) et PASCAL 
de chez HIS0FT, Space Intruders et Mined-oud, deux 
parmi les meilleurs "arcade games" (jeux de centre d' 
attraction) de QUICKSILVA, 3D TANX et FRUIT MACHINE, 
deux réalisations sympathiques de DK'TRONIKS, ainsi 
que le logiciel français de ERE INFORMATIQUE : didac¬ 
ticiels (Histoire, Maths, etc.) et jeux (AWARI, OTHEL¬ 
LO, COBALT - un simulateur de vol - Panique, etc.). 
Autant de projets pour notre rubrique d'essai de cas¬ 
settes. 


DE PLUS EN PLUS BIT 


La dernière génération de microprocesseurs Z80, le 
Z80B, tend à se substituer de plus en plus au ZX80A 


=> 
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L'INCROYABLE MICRO-ORDINATEUR COULEUR SECAM ! 


— Microprocesseur Z 80 A 

— Langage Microsoft Basic 

— Affichage direct antenne télé SECAM 

— Clavier 45 touches pleine écriture, 

+ clef d’entrée, + graphismes, 

+ bip sonore anti-erreurs... 


— Texte + graphismes mixables 9 couleurs 

— Edition et correction plein écran 

— Son incorporé 

— Toutes options : extension + 16 K + 64 K, 
interface imprimante, imprimante, stylo optique, 
manettes, jeux, modem, disquettes... 


WfËCH 


VIDEO TECHNOLOGIE FRANCE 

19, rue Luisant 91310 Monthléry 

Tél. (6)901.93.40-Télex : SIGMA 180114 


BON DE COMMANDE 

A retourner à : VIDEO TECHNOLOGIE -19, rue Luisant - 91310 Monthléry - Tél. (6) 901.93.40 -Télex SIGMA 180114 

Nom_ 


Je désire recevoir: 

□ Version A 

Micro-ordinateur couleur SECAM LASER 200 . 990 F TTC 

Kit d’accessoires: 

1 Modulateur SECAM incorporé 
+ Transfo 220 V 50 HZ 

+ 3 interfaces : câble télé, câble vidéo, câble lecteur K7 
+ Livre utilisateur Basic en français, 150 pages 
+ Livrets techniques en français 
+ Cassette 

+ Garantie 1 an, pièces et main-d’œuvre 
Le kit complet . 290 F TTC 

Extensions - Périphériques - Interfaces * ^ ^ 

□ Extension de mémoire 16 K RAM (soit 20 K disponibles) 540 F TTC 
□ Extension de mémoire 64 K RAM (soit 68 K disponibles) 

(livraison fin octobre) . 990 F TTC 

□ Lecteur de cassette DR 10 . 490 F TTC 

□ Interface d’imprimante « Centronics ». 290 F TTC 

□ Imprimante 4 couleurs (livraison fin septembre) ... 2.360 F TTC 
□ Manettes de jeux (la paire) (livraison fin septembre) . 290 F TTC 

□ Stylo lumineux (livraison fin octobre) .N.C. 

□ Interface disquette (livraison fin octobre) .N.C. 

TOTAL DE MA COMMANDE : F TTC 


Prénom_ 

N°_Rue_._ 

Ville_ 

Code Postal I_i . . i_i_i_I 

Je choisis de payer le total de ma commande : 

□ Au comptant, par CCP, chèque bancaire ou mandat, à l’ordre 
de VIDEO TECHNOLOGIE FRANCE. 

□ Contre-remboursement au transporteur, moyennant une taxe de 
60 F. 


Signature 


Au cas où je ne serais pas entièrement satisfait, je suis libre pendant un délai de 15 jours, 
de retourner à mes frais dans son emballage d’origine le matériel que j’aurai reçu et je 
serai intégralement remboursé des sommes que j’aurai versées. 
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LE CLAVIER 

DES VIRTUOSES 
POUR ZX 81 


mineurs. 


dans les systèmes 8 bits de milieu et bas de gamme. 

Il tourne à 6 Mherz au lieu de 4 ; peut-être les pro¬ 
chains ZX bénéficieront-ils d'office des 50 % de vi¬ 
tesse en plus ; à noter également que cette nouvelle 
version dissipe moins de chaleur. 

UN COMPILATEUR DE CHOC 


Le meilleur (?) compilateur jamais écrit pour le ZX81 
vient de voir le jour :.le Mcoder 2. Il accepte les 
chaînes de caractère, ainsi que les fonctions de dé¬ 
coupage de chaîne (!), admet jusqu'à 26 tableaux et 
multiplie la vitesse des programmes BASIC par un fac¬ 
teur 50 ; son auteur David Threlfall. Le Mcoder 2 
est distribué par P.SIS. pour l'équivalent de 100 F. 

LA VOIE ROYALE : LE JUPITER ACE 


Pour apprendre le FORTH rapidement, la voie royale 
consiste à se procurer un ordinateur Jupiter Ace (im¬ 
porté en France par Valric-Laurene). 

Le FORTH est le langage d'origine de cet ordinateur, 
il n'y a donc pas de problèmes de chargement de cas¬ 
settes, de plantage par suite de fausse manipulation, 
etc. 


ORDI-5 N° S - Septembre 1983 - 15 


H 


ORDI-5 a un faible pour cet ordinateur étonnant qui 
se trouve être un cousin du ZX81 à maints égards : 
même prix très faible (1100 F), même allure de petite 
boîte à miracles, conçu par les mêmes ingénieurs que 
les ZX (Steven Vickers notamment). Sa rapidité est 
tout à fait remarquable, la stabilité de l'affichage 
est nettement supérieure à celle du ZX81, et son in¬ 
terface cassette est un modèle de fiabilité (1500 
bauds - 6 fois plus rapide que le ZX8l - accepte des 
supports tels que les microcassettes et n'est pas su¬ 
jet aux mêmes effets de feed-back que le Spectrum lui- 
même ). 

BON VENT FORTH 16+ 


Le Jupiter Ace va désormais s'appeler Jupiter Ace 16+ 
par intégration en série à la version de base d'une 
mémoire additionnelle de 16K ce qui porte la MEV de 
cét étonnant ordinateur à 19K ; compte tenu des par¬ 
ticularités du FORTH, langage "vernaculaire" du Jupi¬ 
ter, qui utilise très peu de mémoire, il devient pos¬ 
sible d'écrire des rpogrammes extrêmement complexes. 

A préciser que cette intégration s'est faite sans 
supplément de prix, ce qui semble constituer une po¬ 
litique assez généralement suivie par les construc- . 
teurs anglais. A 


RAPIDE - Enfin un vrai clavier pour votre ZX 81. 
Vous entrez toutes vos données beaucoup plus 
vite grâce au clavier professionnel de 
42 touches du FD 42. 

PRATIQUE - Le FD 42 est conçu pour contenir non seulement le ZX 81, 
mais aussi si vous ie désirez une alimentation supplémentaire, une RAM 16 K ou 32K etc. 
L'ensemble est dans le clavier FD 42, ce qui réduit d’autant l’encombrement de votre table de travail. 

FACILE A MONTER - Pas de soudure le FD 42 s’installe en quelques minutes uniquement à l’aide de quelques vis. 

SÛR - Un voyant Led est prévu d'origine et vous pouvez aisément le relier à votre ZX 81 pour indiquer s’il est branché ou non. 
o Documentation en Français. ■ 0&EI H 

s Boîtier moulé par injection 200 mm x 350 mm x 60 mm. jNBB Wjjh 
REVENDEURS NOUS CONSULTER I iMwli 


BON DE COMMANDE A RETOURNER A INNELEC 110 BIS, AVENUE DU GENERAL LECLERC 93500 PANTIN 
(EXPÉDITIONS ET TEL. CITRAIL BERNIS (1) 843.61.11 - TÉLEX 213 187) 


nom:__ 

ADRESSE_:_ 

CODE POSTAL. 
DATE____ 


.PRÉNOM_ 

. VILLE __ 

.TÉL_ 

. SIGNATURE* 


Je désire □ FD 42 soit 
Participation Port emballage 
PRIX TOTAL 
Mode de réglement : 

Chèque bancaire □ C.C.P. □ 


Mandat-lettre □ 


Au cas où je ne serais pas satisfait je suis libre de vous retourner mon matériel sous emballage d'origine dans les 15 jours en port payé. Vous me rembourserez alors entièrement. 













Magazine 


DES LIVRES SUR FORTH 


En français : 

- Un très bon ouvrage d'initiation, aux chapitres 
courts et progressifs avec de nombreux exercices : 
Programmer en FORTH , Alain Pinaud, Editions PSI, 
159 pages, 82 F. 

- Un livre pour l'approfondissement et les référen¬ 
ces, travail collectif sur la structure du langage 
FORTH. 

FORTH , W.P. Salman, 0. Tisserand, B. Toulout, 
Eyrolles, 260 pages, 135 F. 

En anglais : 

- Starting FORTH , Léo Bodie, Prentice Hall, GB, 

300 pages, 200 F. 

- Discover FORTH , T. Hogan, MacGaw & Hill, USA, 

200 pages, 150 F. 

- Introduction to FORTH , H. Katzan, PBI, New York, 
200 pages, 225 F. 

- Corning to FORTH , Knecht, Blackbury, Indianapolis 
USA, 150 pages, 130 F. 


FRAPPER FORTH SUR VOTRE ZX 


- Pour le ZX81 QCP (QUASAR C0MPUTATI0NAL PARAPHERNALIA.) 

11c Hersies Road, Uxbridge, Middlesex, 
environ 10 £, avec programmes de jeux 
et utilitaires, les programmes en FORTH 
peuvent être lités avec l'imprimante 
Sinclair. 

** Artic 396,. James Reckitt Avenue, Hull, 
North Humberside HU80JA, cassette 16K 
excellente, très rapide d'ailleurs sé¬ 
lectionnée par Sinclair et sans doute 
bientôt importée par Direco Internatio¬ 
nal, environ 15 £. 

- Pour le ZX Spectrum : 

** Art ic, voir adresse ci-dessus, nécesi- , 
site 48K, 15 £. 

* CP Software 2 versions 16K (possibili¬ 
té de définir 114 mots) et 48K (possi¬ 
bilité de définir environ 1000 mots) 

Dpt 5YC, 1? Orchard Lane, Prestwood, 
Bucks. HP160NN. 



INFORMRTIQUE 

62, rue Gérard 75013 PARIS 

Tél. : (1) 581-51-44 

EXTENSION 

Boitier conçu spécialement 
pourseclipserau ZX 81 

EXTENSION 16 K RAM 310 F 
JEU 16K LLAMASOFT _ 

CENTIPEDE 85 F 


Prix valeurJuillet 1983 


BON DE COMMANDE 

à renvoyer à RUN INFORMATIQUE 62, rue Gérard 75013 PARIS 


Adresse- 


Je passe commande 


Je désire recevoir: 

□ votre documentation 

O votre catalogue de jeux 

□ SPECTRUM 

□ ZX 81 SIGNATURE: 


□ EXTENSION ZX81 

□ JEU CENTIPEDE 

Total 

Ci-joint mon règlement 
par chèque bancaire □ 


ou CCP □ 


|^Tous les prix comprennent la T.V.A. et les frais de port postaux (France MétropoÜ 


: 


v 


CLUBS ET ASSOCIATIONS 


La SINS0FTWARE, spécialisée dans l'emploi didactique 
des computers Sinclair, a préparé 350 programmes de 
didactique, mathématiques, graphique, jeux, utilité, 
applications, etc. pour le "ZX81" et pour le "Spec¬ 
trum". Les programmes sont particulièrement adressés 
aux étudiants et à celui qui travaille dans le monde 
de l'école et à ceux qui désirent faire un usage plus 
intelligent et stimulant de leur Sinclair. 

Pour tout renseignements : 

SINSOFTWARE - Via De Gasperi 13 - 61016 Pennabilli 
(Ps) - Italie - Tél : 19 39 541 918563. 


ADRESSES DES SOCIETES MENTIONNEES 


- JUPITER CANTAB, Cheshunt Building, Bateman Street, 
Cambridge CB2 1LZ. 

- MELBOURNE H0USE, Glebe House, Leighton Buzzard, 
Bedfordshire LUZ 7NA, GB. 

- MEM0TECH Ltd, Vritnex, Oxon, 0X8 6BX, GB 

- 0RIC PR0DUCT INTERNATION, Coworth Park Mansion, 
London Road, Sunninghill, Ascott, Berdks SL5 7SE, 
GB. 

- P.S.S., 452 Stoney Stanton Road, Coventry CU6 5DG. 

- ROBOTICS, Gâte 11, Royal Albert Dock, London K.16 
GB. 

-r TELECOMPUTE INTEGRATED SYSTEMS, 251 Spadina Avenue 
Toronto, Ontario, Canada M5T 2E2. 

- S0FTEACH Ltd, 25 College Road, Reading, Berdshire, 
RG6 1QE, GB. 
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MONTAGES PERIPHERIQUES POUR ZX81 


Par Patrick Gueulle 
Collection Poche Informatique 

Editions Techniques et Scientifiques Françaises 
Prix : 50 F environ 
120 pages 


I P. GUEULLE 


MONTAGES 

PÉRIPHÉRIQUES 

POUR 



Deuxième ouvrage d'une collection qui mérite d'être 
signalée pour elle-même, (les éditions de poche en 
informatique constituent une nouveauté), le dernier 
livre de Patrick Gueulle a droit à une mention par¬ 
ticulière dans notre revue dans la mesure où il ré¬ 
sulte en grande partie de la collaboration que l'au¬ 
teur a menée avec 0RDI-5 pour la plus grande satis¬ 
faction des lecteurs techniciens. 

Aussi certaines questions comme l'adaptation d'un mo¬ 
niteur vidéo ou l'amélioration des sauvegardes/lec¬ 
tures cassettes qui ont déjà fait l'objet d'articles 
dans les colonnes d'0RDI-5 sont ici reproduites avec 
soin et de nombreuses photos. 

Ceux qui - et ils sont nombreux d'après les lettres 
que nous recevons - aiment le style direct et les con¬ 
seils de bon sens de P.G. trouveront dans ce petit 
recueil d'autres applications encore inédites ainsi : 
des alimentations pour toutes les circonstances, des 
avertisseurs de coupure-secteur, des utilisations 
"subversives" des prises de magnétophone, un compo- 
seur téléphonique, un intéressant programme de dupli¬ 
cation de cassettes par régénération des signaux, etc 
... et une foule de conseils très utiles dans les 
genres les plus variés. Intéressante également est la 
partie finale du livre qui se présente un peu comme 
un aide mémoire pour les caractéristiques système de 
1'ordinateur. 

C'est surtout aux jeunes désireux de tenter quelques 
expériences électroniques autour de leur ZX que cet 
amusant petit ouvrage d'initiation paraît le mieux 
destiné. 

_F. B. 


LA CONDUITE DU ZX SPECTRUM 


Par Tim Hartnell & Dilwyn Jones 
Traduction de "Programming your Spectrum" 
Traduit par B. Loubières 
Editions : EYROLLES 1983 
220 pages 

Prix : 80 F environ 



Avec une remarquable rapidité les éditions Eyrolles 
ont sortis plusieurs traductions d'ouvrages anglais 
majeurs sur le Spectrum. Cette maison s'est orientée 
principalement vers les livres de Tim Hartnell et Di¬ 
lwyn Jones qui sont les animateurs d'une revue anglai¬ 
se destinée aux utilisateurs de ZX : "INTERFACE". 
C'est dire que ces auteurs connaissent parfaitement 
l'appareil dont ils parlent. 

Pourtant, il n'est pas certain que la "Conduite du 
Spectrum" soit l'un des ouvrages qui méritait une 
traduction prioritaire : il s'agit en effet d'un li¬ 
vre écrit rapidement pour faire face à une demande 
croissante et cette précipitation est sensible dans 
l'ensemble du travail : en particulier, les auteurs 
ont choisi une présentation qui est une facilité que 
nous avons dénoncée à plusieurs occasions : la décou¬ 
verte d'un système par le passage en revue alphabéti¬ 
que des mots-clé, chacun illustré par un court pro¬ 
gramme : cette succession est arbitraire, puisque cha¬ 
que programme comporte d'autres mots BASIC que celui 
que l'on explicite, et surtout ne permet pas d'acqué¬ 
rir avec progressivité la maîtrise d'un système puis¬ 
qu'elle ne concrétise pas la hiérarchie des fonctions 
ou commandes selon leur importance. 

Ce défaut est important et T.H. et D.J. y ont heureu¬ 
sement échappé pour les autres ouvrages qu'ils ont é- 
crit sur cet ordinateur et qui sont nettement meil¬ 
leurs (d'ailleurs également traduits par Eyrolles). 

Cependant, quelques qualités figurent à l'actif de ce 
livre : d'abord les deux auteurs sont de très bons 
programmeurs et chacune des applications prise en el¬ 
le-même, intéressante dans sa brièveté, ne manque ja¬ 
mais de fantaisie : T.H. et D.J. sont de ce point de 
vue des programmeurs très sympathiques. 


La partie la meilleure du livre et qui peut justifier 
son acquisition par tout fanatique du Spectrum est 
composée par les 20 dernières pages contenant les lis¬ 
tes de 8 jeux BASIC très bien faits. 


'F. B. 
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Certains lecteurs nous ayant demandé des ouvrages de 
référence sur la programmation du Z80 qui dépassent 
les conseils limités au ZX que l'on peut trouver dans 
les ouvrages de grande diffusion destinés, à cet ordi¬ 
nateur, nous avons procédé à un choix et notre préfé¬ 
rence irait à ce livre, bien qu'il ne constitue pas 
la "bible" la plus couramment citée, celle-ci étant 
l'ouvrage de Rodnay Zaks publié chez SYBEX. La supé¬ 
riorité de cet-ouvrage sur celui de Zaks tient à no¬ 
tre sens aux éléments suivants : il est d'abord plus 
court et est donc plus rapide à assimiler, l'approche 
est plus concrète en ce qu'il est tourné vers la mise 
en oeuvre du Z80 pour la simulation de circuits logi¬ 
que, etc., la partie descriptive du microprocesseur 
est particulièrement bien soignée avec un nombre de 
diagrammes inégalé, enfin le dictionnaire qui expli¬ 
que le fonctionnement de chaque instruction est ex¬ 
trêmement clair car chaque fois une présentation gra¬ 
phique à la fois belle et judicieuse illustre parfai¬ 
tement l'état des principaux registres avant et après 
l'exécution de l'instruction étudiée. Enfin, la dif¬ 
férence de prix plaide sans conteste pour ce travail 
bien fait mais malheureusement relativement difficile 
à trouver dans les librairies françaises. 

P. L. 


LA PRATIQUE DU SPECTRUM Tome II 


Par Marcel Henrot 
Editions : PSI 1983 
157 pages 


Deuxième volet de l'important travail consacré au 
Spectrum par les éditions PSI, le livre de Marcel 
Henrot fait suite au livre de Xavier Linant de Belle- 
fonds qui a été examiné dans le précédent numéro d' 

ORDI-5. 

Ce livre très sérieux, entièrement consacré à la pro¬ 
grammation en langage machine du Spectrum, a été en¬ 
trepris dans le même esprit que "La pratique du ZX81 
tome II" paru en 1982. Bien que conçu sur les mêmes 
bases et avec le même souci de progressivité, ce li¬ 
vre est assez sensiblement différent, pour cette rai¬ 
son essentielle que l'organisation interne du'Spec¬ 
trum diffère profondément de celle du ZX81, en parti¬ 
culier en ce qui concerne le domaine de l'affichage 
(l'on sait que contrairement au ZX81 le fichier d'af¬ 
fichage du Spectrum est fixe dans la mémoire : or la 
plupart des programmes en langage machine ayant pré¬ 
cisément pour objet le travail sur l'affichage, le 
problème est à reconsidérer complètement par rapport 
à l'ordinateur précédent sans parler de la couleur 
et de la haute définition). 

Cet ouvrage n'a pour l'instant, à notre connaissance, 
pas d'équivalent en langue française et c'est pour¬ 
quoi nous le recommandons chaudement compte tenu de 
ses qualités : il est indispensable pour aller plus 
avant dans ce merveilleux ordinateur. Pour en tirer 
le meilleur parti il faut le lire avec méthode du dé¬ 
but à la fin car sa construction a été très étudiée 
pour acquérir le maximum de connaissances en un mini¬ 
mum de place et de façon savamment graduée. 

Deux restrictions tout de même : malgré quelques il¬ 
lustrations de jeux jolies et efficaces, l'ensemble 
de l'ouvrage reste un brin austère et les exercices 
sont en majorité assez difficiles..-, mais ceci ne de¬ 
vrait pas effrayer les possesseurs de Spectrum réel¬ 
lement sollicités par les possibilités de cet ordina¬ 
teur . 



T. H. 


Vos amis 
connaissent - ils 
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Extension PIEPIOTECH 

16 K Ram 38 

32 K Ram 54 

64 K Ram 79 

HRG 49 

I F Centronics 44 

Câble l/F 17 

Clavier 54 


SEIKOSHA - GP 100 Marck II 
2.250 F 


- Moniteur Fond vert 
12 pouces -1.100 F 


380 F 

545 F 

795 F 

495 F 

^ Nous sommes en mesure de 

545 F 


vous fournir toutes les 
extensions, logiciels, librairie, concer¬ 
nant tous ces produits. 

Documentation gratuite contre 2 timbres à 1,80 F . 


BON DE COMMANDE 

Offre valable jusqu’au 31 /10/83 

à retourner à E.S.C. 

Nom. Prénom 

Adresse complète . 

Code postal . Ville . 

Tél .Signature 

Date. 


Quantité 

Désignation 

Prix unitaire 

Prix Total 













1- 





j Mode de règlement 

j □ Chèque bancaire joint 
j □ Chèque postal joint 
j □ Mandat-lettre joint 


Participation frais Port 
et Emballage + 30 F 





































POIDS IDEAL 


LOTO 


Ce programme calcule le poids idéal en fonction-de 
la taille et du sexe et de l'âge ; pas de complexes 
si vous n'avez pas la taille mannequin. 


Le ZX choisit 6 numéros au hasard compris entre 1 et 
49- Si deux numéros sont identiques dans le tirage, 
tapez une touche et le ZX recommence. 


100 REM POIDS IDEAL 

3.10 PR INT "JE CALCULE UOTRE FOI 
IDERL..." 

120 PRINT RT 1,4; *■ DONNEZ MOI VO 
TRE TAILLE (EN CENTIMETRES)" 

130 INPUT T 

14.0 PRINT RT 4,4; T; "QUEL. EST_.yO 
CRE RQE.." 

ISO INPUT R 

150 PRINT RT 6,4-; R; "QUEL EST VO 
TR E SEXE (REPONDEZ: HOMME/FEMME? 


170 INPUT 
1S© PRINT 
130 IF S$= 
191 IF S$= 

200 IF. S$e 

201 IF sœ= 

210 LET Ps 
220 PRINT 
IDERL. EST ; 


S* 

RT 4,4.; 5$ 

•"HOMME" THEN LET 5*1 
»"HOMME” THEN LET K=0. 

FEMME" THEN LET S=2 
:"FEMME" THEN LET K=0. 

• (T-100+-A/10) *K 
RT 10/1;"UOTRE POIDS 
p; "KG" 


CLS __ 

PRINT RT 0,12; 

PRINT RT S y 0;"N, COMPLEMENT 


DIM C ( 
FOR X = 
LET D = 
LET D( 
N EXT X 
PRINT 
PRINT ; 
PRINT ; 
PRINT 
PRINT 
PRINT i 
PRINT 
PRINT 


4-9) 

1 TO B STEP 1 
INT ( (RND*49 ) H 
X? =D 

RT 5,2; C(l) 

RT 5,6; CCS) 

RT S,10;C(3) 

RT 5,14-; C(4.) 

RT 5,18j C (5) 

RT 5,22;C(6) 

RT S, 18; C (7) 

RT 1 5,0 ; "0052=33 


70 PRUSE 9000 

71 RUN 


J.P. Lartillier. 


.J.P. Lartillier 


AUTOROUTE 


Après avoir choisi le niveau de difficulté (qui, en 
fait, correspond à la' probabilité que l'autoroute 
soit plus ou moins chargée), le numéro du tour appa¬ 
raît puis la portion d'autoroute se dessine. Ceci 
terminé, le jeu commence. 

Il y a deux sortes véhicules : les "H" et les 
Pour doubler un "a" il faut être en et pour dou¬ 
bler un il faut être en "fa". Pour'changer de voie 
(en fait de signe), il suffit d'appuyer sur une tou¬ 
che. Une fois la portion passée, une autre se dessi¬ 
ne. Et ainsi- de suite, jusqu'à ce que vous ayez pro¬ 
voqué un accident ou que vous ayez parcouru les 8 
tours. 

Cpr~ ^ 

i r!m autoroute 

10 PRINT "NIUEAU ?" 

15 PRINT "DEBUTANT -> 1" g 

20 PRINT "EXPERT -> 2" 

25 PRINT "CASSE-COU -> 3" 

30 INPUT N 

33 LET Z$ = ". - M 

35 IF N=2 THEN LET ZS=". 

37 IF N=3 THEN LET zi=”.1 

38 CLS 

40 LET T=1 
4-5 LET D =6 

50 PRINT "TOUR : " ; T 1 

55 PRINT RT 10,0;" "; I 

60 FOR 1=1 TO 25 I 

65 PRINT Z$CINT (RND*(5-N)i+1) 

70 NEXT X 
80 LET B$ = ".“ 

90 FOR X=2 TO 30 
95 FOR J=1 TO D 

100 IF INKEY$ < >"" THEN GOTO 200 

105 NEXT U 

110 PRINT RT 10,Xi 

115 LET C=PEEK (PEEK 16398+256» 

PEEK 16399) I 

120 IF C=CODE B $ THEN GOTO 300 
130 PRINT RT 10,X-l; " "; RT 10,X 

'140 NEXT X 
160 LET T=T + 1 

165 IF T =3 OR T =5 OR T -7 OR T =3 A fl 

THEN LET D=D-1 ' /L, v /> 

170 IF T =9 THEN GOTO 400 1 . 

180 CLS • ArfV A. 

19 0 GOTO 50 1 r ^ _ g- N 

200 IF B $ = " . " THEN GOTO 250 i -----j l 

210 LET BÊ = " . " Y* J-n- - - - , I 

220 GOTO 110 -C I) s 

250 LET B$="-" / ^ \|l , 

260 GOTO 110 \ ( 'Y 

300 print RT 20,10; I r rr-rTr^\V 

310 GOTO 410 \C^// ^ t^V\ 

400 PRINT RT 20,13; "M3S1SE1" V—-» -■ -—JLLV 

o 410 t> PRINT RT 21,0; "UNE AUTRE 7f ÿwwrna t ~ i_ - 

420 IF INKEYS = " " THEN GOTO 420 f~~) 

430 IF INKEY$="N" THEN STOP / 

435 CLS i _J 

440 RUN 


Etienne Colella_ 


Jouez à ce jeu qui monte en maniant votre raquette à 
l'aide des touches "5" et "8". 



5 LET Z=NOT PI 
10 LET X=CO0E "=" 

20 LET Y=CODE " : " 

30 LET A=NGT PI 
40 LET 0 = INT (RNDjflS) 

50 LET I=SGN PI 
60 LET U=I 

75 LET Y=Y+2*(INKEY$a"8" RND Y 
<303 -2» (INKEY$ = "S" RND Y>0) 

76 LET A=A+I 

77 LET B =B + J 

78 CLS 

80 PRINT RT X , Y ; 

90 PRINT RT R,B;"O" 

130 IF R =21 THEN GOTO 200 
140 IF B =0 OR B =31 THEN LET J = ~ 
U 

155 IF R =0 THEN LET I = -I 
160 XF X=A+-1 RND (Y =B OR Y + 1=B) 
THEN GOTO 230 
170 GOTO 75 

200 PRINT RT NOT PI,NOT PI;Z 

201 PAUSE X*X 
210 CLS 

220 RUN 
230 LET I=-I 
240 LET ZsZ+1 
250 GOTO 75 
260 SRUE "HS" 

270 RUN 


. Jocelyn Donze 


0 V J 


4 "j . 


Pour vous y retrouver dans la masse des pronostics 
ce court programme vous donne le nombre de points pour 
chaque cheval. 

7 LET J=5 

8 LET U=SGN PI 

10 PRINT "CONCURRENTS ? 

20 INPUT P 
30 PRINT P 

32 PRINT 

33 PRINT "PRONOSTIQUEURS ? " ; 1 

34 INPUT PR 

35 PRINT PR 
37 CLS 

40 DIH T(P) 

50 FOR R=SGN PI TO PR 
60 PRINT R 

70 FOR B=J TO U STEP -U 

80 INPUT C I 

90 PRINT C; 

100 LET T (C) =T (C) +-A/U 
110 NEXT B 
120 CLS 
130 NEXT R 

140 PRINT T RB J;"NUM";TRB U+U+U 
.I "PTS" 

150 FOR R =U TO P 

160 PRINT TRB J;fl;TRB J+U+-ü;T(A 

) I 

170 NEXT R 


Jocelyn Donze 
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PAUSER N'EST. PAS TREMBLER 


I 



- PAUSE fait trembler l'image 

- FOR X = 1 TO ... 

NEXT X utilise beaucoup trop de mémoire (programme 
et variable) pour ceux qui n'ont pas l'extension 
16 K. 

Pourquoi ne pas utiliser la lenteur du ZX ? (pour 
les faibles durées) 

Ex : LET A = A + SIN SI» SIN... PI (A pas modifié) 
0,15 seconde 

ou mieux : RAND SIN SIN... PI (générateur de nom¬ 
bres aléatoires non troublé) 

_B. Hivet 

AFFICHER SUR 34 COLONNES 


Plus étonnant maintenant, essayez donc ceci : 


1 REM ZX81 _ ABCD- X- (32 caractères) 

10 FOR A = 16514 TO 16546 

20 IF PEEK A = 27 THEN POKE A,118 

30 NEXT A 

RUN 


Puis supprimer les lignes 10, 20 et 30 et entrez ceci : 


10 LET A = PEEK 16396 
20 LET B = PEEK 16397 
30 FAST 

40 POKE 16396,130 
50 POKE 16397,64 
60 SLOW 

70 RAND SIN SIN SIN SIN SIN SIN SIN PI 
80 FAST 

90 POKE 16396,A 
100 POKE 16397,B 


Runner ce programme. 

Il consiste à créer une zone d'affichage dans une REM 
puis à mettre cette adresse 16514 dans D-FILE ; ensui¬ 
te on reconstitue le D-FILE d'origine. 

Avec ce procédé on peut afficher jusqu'à 34 caractè¬ 
res par ligne. 

_B. Hivet 


DESSIN EN DIAGONALE 


La plupart des programmes simulant une ardoise magi¬ 
que sont amusants mais ils ont un petit défaut : le 
tracé de diagonales est malaisé. Ce petit programme 
peut pallier cet inconvénient. 

Un exemple : pour tracer une diagonale dans le sens/ 
il suffira de presser simultanément les touches 5 et 

6 (*- + i = */). 

Nous employons pour ce faire la variable système "LA- 
ST-K" (voyez au bas de la page 178 de votre manuel). 
Cette variable est lue par la ligne 60. 

Selon la ou les touches pressées, cette variable chan¬ 
ge de valeur. Voici les valeurs utilisées : 




5 

*— 

57335 


6 

ir 

57327 


7 

î 

61423 


8 

—t 

63471 

5 

+ 6 

S 

57319 

5 

+ 7 

\ 

53223 

8 

+ 6 


55279 

8 

+ 7 


59375 


10 

LET X=30 



20 

LET Y=20 



30 

UNPL0T X 

Y 


40 

RAND 



50 

PLOT X,Y 



60 

LET A=PEEK 16421+256xPEEK 


70 

LET X=X+(A=63471 OR A=55279 


OR 

A=59375)- 

(A=57335 OR A=57319 


OR 

A=53223) 



80 

LET Y=Y+(A= 61423 OR A=53223 


OR 

A=59375)- 

(A=57327 OR A=57319 


OR 

A=55279) 



90 

GOTO 30 



-Jean-Luc Strempel 

CURIOSITE SPECTRUM 


Nous avons découvert une curiosité sur le Spectrum. 
Nous vous invitons à la constater par vous-même : 

Il faut tout d'abord que la question "scroll ?" appa¬ 
raisse au bas de l'écran. 

Vous pouvez obtenir cela en listant un programme long. 
Mais le plus intéressant est de faire : 

FOR x=1 T0 900: PRINT "0IX";: NEXT x ENTER... 

La question "scroll ?" est au bas de l'écran. Pres¬ 
sez alors ensemble les deux touches SHIFT. Et oh mi¬ 
racle ! La boucle FOR NEXT que vous aviez entrée ré¬ 
apparaît ! Ce n'est pas fini... 

Pressez une nouvelle fois ENTER et regardez ce qui 
s'affiche ! Il'-y a de nombreux mots-clés du BASIC et 
certains d'entre eux ont leur dernière lettre tron¬ 
quée. 

Il reste à savoir d'-où viennent ces bizarreries ? 

_i_Jean-Luc Strempel 

RENUMEROTATION DE LIGNES POUR LE ZX SPECTRUM 


Les GO T0 et G0 SUB ne sont pas renumérotés. 

Par G0 T0 9999 on peut connaître la taille des pro¬ 
grammes BASIC, la place occupée par les variables et 
le nombre d'octets encore disponibles. 


9990 LET mm=256: LET li=PEEK 23635+mmxPEEK 23636: 

INPUT "Renumérotation de ";deb;" à ";fin: 

PRINT "De ";deb;" à ";fin;" 

INPUT "Nouveau numéro ";nn;" par pas de ";pas: 
PRINT "vers ";nn;" par ";pas 

9991 LET nl=PEEK (li+1)+mm*PEEK li 

9992 IF nl>fin THEN RETURN 

9993 IF nl>=deb THEN POKE li.INT (nn/mm): 

POKE li+1,nn-mm*INT (nn/mm): LET nn=nn+pas 

9994 LET li=li+PEEK (li+2)+mm*PEEK (li+3)+4: 

9999 LET mm=256: LET Vars=PEEK 23627+mm*PEEK 23628: ;N 
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LET ELine=PEEK 23641+mm*PEEK 23642: 

PEINT'"Prog ";Vars-PEEK 23635-mm*PEEK 23636 
'"Vars ";ELine-Vars'"Reste 
PEEK 23730+mmxPEEK 23731-ELine 


-Jean-Luc Strempel 

AJOUTEZ LE SON A VOTRE PERITEL SPECTRUM 


Savez-vous qu'il est possible d'obtenir une amplifi¬ 
cation du son du Spectrum par l'ampli audio du télé¬ 
viseur couleur par l'intermédiaire de la prise péri- 
tel. Ceci est précieux pour les applications de jeu. 



Il suffit d'ajouter deux picots à la prise P livrée 
avec l'ordinateur et d'y souder les deux extrémités 
masse et signal sonore d'un fil branché à la sortie 
MIC du Spectrum par une prise Jack 3,5 mm. Le montage 
ne pose aucun problème. La prise péritel supporte a- 
lors non seulement la couleur mais aussi le son, ce 
qui, d'une manière surprenante, n'a pas été prévu d' 
origine. 

_ X. Linant de Bellefonds 

TRACE DE DIAGONALES POUR LE ZX SPECTRUM 


Voici un petit programme qui vous montre comment tra¬ 
cer diagonales de façon très simple. 

En effet si vous pressez par exemple les touches '5' 
et '6', le curseur se déplacera dans le sens ($=» + 

JH/) - 

Nous scrutons directement le clavier par les fonctions 
IN 61438 et IN 63486 (voir le chapitre 23 du manuel) 
car le BASIC ne permettrait pas de prendre en compte 
plus d'un caractère avec INKEY$. 

Pour repérer plus facilement le curseur nous faisons 
clignoter la position occupée. 


10 LET x=0 : LET y=0 
20 LET a=IN 61438 
30 PLOT BRIGHT 0; FLASH 0;x,y 
40 LET x=x+((a=251 OR a=235 OR a=243) AND x<255) 
-(IN 63486=239 AND x>0) 

50 LET y=y+((a=247 OR a=243) AND y<175) 

-((a=239 OR a=235) AND y>0) 

60 PLOT BRIGHT 1; FLASH 1; OVER 1;x,y . 

70 GO TO 20 


.Jean-Luc Strempel 


PROTO-PACK ZX 81 

FINI L'ANGOISSE DES TRANSFERTS K7, 

LA FIARILITE DU PROFESSIONNEL A 100 %! 

Ce module de mémoire permanente modifiable 
à volonté n'utilise aucune pile et peut contenir 5 
longues minutes de k7 en un ou plusieurs program¬ 
mes indépendants les uns des autres dans un meme 
module, un simple ordre basic suffit a appeler un 
programme en une fraction de seconde sans qu il se 
perde en route, à la vitesse de 160 k par seconde!! ! 

MADE IN FRANCE: PR0T0 EXPRESS tu *Bizoi:(6) 437.80.70 

BONDËSSAI GRATUIT A ADRESSER A PR0T0 EXPRESS BP 104 77003 melun cedex 
je souhaite essayer cette nouvelle mémoire 15 jours 
sans engagement, si elle ne me convient pas il me suffit 
de vous la retourner pour que me soit restituée la caution. 

PROTO-PACK pour RAM de. K ROM, ADRESSE ET SIGHATORE : 

O avec liaison directe sur le ZX : TT 

n avec liaison pour carte mére : FF 

r— » port contre remboursement : + 30 . FF 

O paiement (ou caution] ci-joint, part gratuit. 
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langage 



Vous avez sans doute entendu parler du langage FORTH. 
Crée par Charles Moore pour ses besoins propres (as¬ 
trophysique), il Fut organisé de manière à obtenir un 
code compact, structuré, d'exécution rapide et de mi¬ 
se au point aisé. A l'heure actuelle, un standard nom¬ 
mé 79-standard est promu par le créateur lui-même 
(FORTH Inc.) et par le FORTH Interest Group (FIG) aux 
Etats-Unis. 


TOUT SUR LA PILE 


Tout d'abord Forth se distingue des autres langages 
par son organisation sous forme de dictionnaire. Cha¬ 
que procédure est stockée en mémoire en quelques oc¬ 
tets codés à partir de son nom ; elle est ainsi immé¬ 
diatement réutilisable par le programmeur. Il existe 
à la base un nombre fini de mots pré-compilés (envi¬ 
ron deux cents) à partir desquels l'utilisateur peut 
définir les procédures de son application. 

Cette méthode implique une très forte structuration 
depuis la base de l'application jusqu'aux plus hauts 
niveaux. Chacun des mots peut, au choix, être défini 
en assembleur (intégré au langage) ou en utilisant 
les mots précédemment définis. 

Autre caractéristique essentielle, l'utilisation de 
la rotation polonaise inverse (RPN en anglais). Cel¬ 
le-ci, bien connue des utilisateurs de calculatrices 
Hewlett Packard, est un peu déroutant au début. Par 
exemple pour écrire 2 + 3 = , il faut entrer au cla¬ 
vier [2 "espace" 3 "espace" + "espace".] et terminer 
par "Enter". Le point final fait imprimer le résultat 
à. l'écran. Pour fonctionner correctement, ce principe 
nécessite l'utilisation d'une pile . C'est-à-dire que 
tous les paramètres sont mis les uns après les autres 
quelque part en mémoire. Ainsi, dans notre exemple, 
le 2 est d'abord empilé, puis le 3 vient se mettre 
"au-dessus". Le "+" prend les 2 paramètres présents 
en haut de la pile, les additionne et dépose le résul¬ 
tat au sommet de la pile en détruisant ses deux para¬ 
mètres (le 2 et le 3). Le vient prendre le sommet 
de la pile et l'affiche à l'écran. Ce fonctionnement 
peu habituel permet le passage de paramètres entre 
chacune des procédures, de manière très simple et très 
rapide (justement par la pile). L'emploi de variables 
dans FORTH est très occasionnel bien qu'aisément réa¬ 
lisable. 

En ce qui concerne la mémoire de masse, les données 
inscrites sur cassette ou disquette sont accessibles 
comme une partie de mémoire vive. En effet, la mémoi¬ 
re est découpée en "écrans" de 1K octets directement 
adressables, modifiables ou exécutables qu'ils soient 
en mémoire ou sur support magnétique. Tout écran né- 
céssaire et non présent en mémoire est automatique¬ 


ment lu et chargé d'une manière totalement transpa¬ 
rente pour l'utilisateur. Ce concept est celui de la 
mémoire visuelle. 

DE L'INTERPRETE AU COMPILE 


Et l'exécution direz-vous 7 Une fois de plus FORTH 
se distingue par une structure interprétation-compi¬ 
lation entièrement originale. 

Ainsi si vous entrez au clavier : 

2 i_r 3 *_» + i_i . puis "Enter" 

l'écran répond 5 OK. Votre demande a été directement 
interprétée et exécutée. 

Par contre, si vous entrez : 

: i_i COUCOU i_i. "i_ iCOUCOUi_i"i _i; puis "Enter" 

l'écran répond 0K. Vous venez de compiler dans le 
dictionnaire un mot nouveau qui, lors de chaque appel, 
vous imprimera "COUCOU". Ce mot fait maintenant par¬ 
tie intégrante du langage. Pour définir un mot nou¬ 
veau, il faut commencer la définition par puis le 
nom de la procédure, le code et terminer la défini¬ 
tion par On dit que vous fait passer en mode 

compilé et que ramène en mode interprété. 

LANGAGE DE HAUT NIVEAU ? 


Il existe dans FORTH des instructions de structura¬ 
tion du type si alors sinon , tant que , des possibili¬ 
tés de boucles paramétrables, de calcul, d'échange 
avec la mémoire ... Tout cela étant prédéfini et per¬ 
mettant un code compact, rapide à écrire et souvent 
sans beaucoup d'erreur dès la 1ère exécution. En ef¬ 
fet, il est possible à tous les niveaux d'une appli¬ 
cation de tester et corriger tout ce qui est déjà é- 
crit. 

Bien d'autres concepts particuliers à FORTH le dis¬ 
tinguent un peu plus des autres langages et en font 
probablement le langage le mieux adapté à la structu¬ 
re de nos micro-ordinateurs. Il permet une programma¬ 
tion interactive (Editeur plein écran, interprétation) 
très rapide et parfaitement structurée (concept du 
dictionnaire, instructions de haut niveau) très pro¬ 
che de la machine (accès sans restriction à l'assem¬ 
bleur, concept de pile très proche du micro-proces¬ 
seur) et d'une exécution très rapide (compilation, 
exécution 10 à 50 fois plus rapide que le BASIC Sin¬ 
clair) . 

EXEMPLE DE PROGRAMME 


Calcul de la racine carrée d'un entier positif : 
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Formule 


VN = 1 (Approximation + N ^ 


■ 

2 Approximation _/ 


fl 


Le résultat correct s'obtient en 10 Itérations et la 
première approximation s'obtient par JN. 


ALGORITHME 


Calcul de la 1ère approximation 


Approx = J N 


Faire 10 fois 


Diviser N par Approx 

Ajouter Approx au résultat de la division 
Diviser par 2 pour obtenir la nouvelle approxi¬ 
mation 
Revenir 


- Imprimer le résultat 

- Terminé 


+ L'instruction OVER copie le 2ème nombre présent sur 
la pile au sommet de la pile. 

+ DUP copie le sommet de la pile sur la pile. 

+ X 0 D0...L00P est une boucle où X fixe le nombre 
des itérations. 

+ SWAP inverse les 2 nombres présents au sommet de 
la pile : le 1er devient 2éme et inversement. 

+ DROP supprime le sommet de la pile. 

+ "." imprime le sommet de la pile. 

+ "/" divise le 2ème nombre de la pile par le 1er. 

+ "+» additionne les 2 nombres du sommet de la pile. 

EXEMPLE D'EXECUTION ET EVOLUTION DE LA PILE 

Appel du programme : 

16 RAC2 puis "Enter" 

Réponse du programme : 

4 OK 

Evolution de la pile : Elle est représentée après 
exécution de l'instruction écrite en-dessous. 


PROGRAMME FORTH 


: APPROX 

ANNEXE I 

OVER 


OVER 


+ 


2 


/ 


: RAC2 


DUP 


2 


/ 


10 0 


D0 


APPROX 


L00P 


SWAP 


DROP 



" Traduction " : 1 - 

(Diviser N-par approx) 

(Ajouter approx au résultat) 

(Diviser par 2 pour obtenir la nouvelle approx) 

2 - 

(1ère approx = N/2) 

(Calcùler la racine en 10 itérations) \ \ 

; (purger la pile et imprimer le résultat) 

EXPLICATION DU PROGRAMME 


+ La 1ère procédure permet le calcul des diverses ap¬ 
proximations par itérations successives (10 boucles). 

+ La 2ème procédure est le corps même du programme. 
Elle calcule la 1ère approximation avant de commencer 
les itérations en appelant Approx. A la fin elle sup¬ 
prime de la pile les paramètres non nécessaires et 
imprime le résultat laissant ainsi la pile vide (Es¬ 
sentiel en FORTH). 


ANNEXE II 

INSTRUCTION 

Etat de 

la pile —> 

16 

16 


RAC2 

16 


DUP 

16 16 


2 

16 16 2 


/ 

16 8 


10 

16 8 10 


0 

16 8 10 

0 

D0 

16 8 


APPROX 

16 8 


OVER 

16 8 16 


OVER 

16 8 16 

8 

/ 

16 8 2 


"à la fin des 10 itérations" 
L00P 

16 4 


SWAP 

4 16 


DROP 

4 



sur l'écran 4 OK. 

La pile est vide et donc prête à entreprendre une au¬ 
tre exécution. Le tout s'est exécuté. Voici ce que 
serait l'équivalent en BASIC Sinclair. On remarquera 
aisément la différence de rapidité en multipliant le 
nombre d'itérations. 
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Ce n'est un secret pour personne' que Sinclair est par¬ 
ti à la conquête du marché américain sous la marque 
TIMEX. Peu d'échos ont cependant filtré quant à l'ac¬ 
cueil réservé outre-Atlantique à ces machines qui ont 
conquis l'Europe en moins de temps qu'il n'en faut 
pour l'écrire. 


Nous avons profité d'un déplacement à Washington puis 
à New York afin d'essayer d'en apprendre davantage. 
Premier arrêt, un grand magasin (Departement Store) 
dans lequel le "TIMEX Sinclair 1000" (c'est son nom) 
est vendu 49 dollars au rayon radio-TV-HIFI, pratique¬ 
ment en "cash and carry" puisque le malheureux vendeur 
s'avère bien incapable de donner un conseil ou même 
d'organiser une démonstration. 

" Time is money " dit-on là-bas, et jamais un "busines¬ 
sman" digne de ce nom n'acceptera de perdre plus de 
trois minutes pour emporter la vente d'un produit 
aussi bon marché. 

En effet, si le prix pratiqué semble déjà intéressant 
à ce pauvre français qui achète le dollar US à 8 F 
(en attendant mieux !) il est tout simplement dérisoi¬ 
re pour l'américain moyen qui dépense un billet vert 
aussi facilement que nous autres une pièce d'un franc. 
Le ZX81 est,donc là-bas l'un de ces produits que l'on 
dépose négligeamment dans son caddy de super-marché 
au même titre qu'un carton de Coca-Cola ! 

Il n'est pas évident qu'un si bas prix (n'oublions 
pas que la machine est livrée montée et avec 2K oc¬ 
tets de RAM) entraîne des ventes massives : pour une 
poignée de dollar's de plus, on se tournera plutôt vers 
un Atari, un Commodore, ou l'un des fameux TRS 80 de 
la chaîne géante RADIO SHACK. Le nouveau modèle MC-10, 
vendu 120 dollars, rappelle fort étrangement le ZX81 
avec, en plus, la couleur, un clavier mécanique, et 
une interface RS 232 C pour imprimante standard ou 
modem. 


Une dernière possibilité n'est pas sans importance 
dans un pays où les télécommunications sont reines 
(les antennes de télévision par satellite fleuris¬ 
sent un peu partout sur les toits), et où les ama¬ 


teurs d'informatique ont depuis longtemps dépassé le 
stade du jeu des astéroïdes ! Les programmes exposés 
dans les vitrines de Broadway traitent d'amortisse¬ 
ment de crédits, de taxe sur les salaires (impôt amé¬ 
ricain sur le revenu), d'optimisation du budget fami¬ 
lial , etc. . . 


Nous avons demandé à un simple chauffeur de car GREY- 
HOUND la raison pour laquelle il avait acheté un or¬ 
dinateur individuel (bien plus perfectionné que le 
Sinclair d'ailleurs). Réponse : pour planifier ma 
comptabilité familiale et (tout de même !) apprendre 
l'informatique individuelle sous un angle beaucoup 
plus utilitaire et professionnel que nous autres eu¬ 
ropéens. De ce fait, ils n'envisagent pas de passer 
du temps à réinventer des programmes qui existent dé¬ 
jà, et sont donc d'assez gros consommateurs de logi¬ 
ciels. 

Conséquence logique dans un pays de commerçants avi¬ 
sés, les cassettes se vendent très cher comparative¬ 
ment aux machines : dans le meilleur des cas, on dé¬ 
pense autant pour deux cassettes et un livre, que 
pour le TIMEX 1000 ! Classique stratégie américaine, 
semblable à celle pratiquée par POLAROID : des appa¬ 
reils photo presque à don, mais ôes films affreuse¬ 
ment chers et irremplaçables ! 


Second arrêt, New York. Ville redoutable (pour le con¬ 
sommateur !) où nulle vitrine n'affiche la moindre é- 
tiquette, à l'exception de quelques promotions allé¬ 
chantes mais généralement indisponibles. Le marchan¬ 
dage est la règle, car la "tête du client" est l'uni¬ 
que tarif ! De cette façon, un ZX81 initialement pro¬ 
posé à 100 dollars peut être acquis sans effort par¬ 
ticulier à moins de 40 dollars... A peu près le prix 
d'une bonne place de spectacle à Broadway, cent mètres 
plus loin sans changer de trottoir ! 


Patrick Gueulle 
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G. Gérone 


Si vous avez la chance de posséder ce bijou qu'est 
l'imprimante Sinclair, vous pouvez nous envoyer les 
plus beaux "écrans" que vous avez réalisés, quel 
qu'en soit le genre. 



Ph. Le Leizour. 
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tromania 



LES GRANDES EAUX DE VERSAILLES 


Ecran ZX81 


SIRTAKI (ZX81) 


Faites danser les pixels sur ces quelques mesures 


10 FOR K=0 TO 60 
30 Pi_OT K / 0 
30 PLOT 60-K.,0 
40 SCROLL 
50 NEXT K 
60 GOTO' 10 


. M. Sherer. 




SUPER PONT DU GARD 


Ecran Spectrum" 



. X. Linant 


10 FOR R -1 TO 4 

20 LET H=10*R 

30 LET 0=15*.?**CR—11 

40 FOR 1=0 TO 1.9*0 STEP 0X15 

50 PLOT X+S0,H-(I-D)*(I-D)*H/D 

> 60 PLOT 30-1,H-CZ-DÜ*il-DÏ*H/D 

J 70 NEXT I 
80 NEXT R 


10 FOR N=5 TO 21 STEP 4 
15 PLOT 255,60*LN N-S<3 
20 FOR 1=1 TO N 
30 DRRW -(250/N1,0,3.14 
40 NEXT I 

42 PLOT 3,60*LN m+A'J -B0: L'KF/O 

aso, o 

45 NEXT N 


iX. Linanti 
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Deux coups de poker 



L'utilisation de la fonction RAND est très adaptée 
aux simulations de jeu de cartes qui font une place 
importante au hasard. C'est le cas du jeu de Poker 
dont nous vous présentons ci-dessous deux programmes 
pour ZX81 16K, tous deux assez amusants et relative¬ 
ment rapides pour du BASIC. Avec le premier on joue 
contre l'ordinateur qui sait parfaitement ne pas en¬ 
gager son argent à la légère. Avec le second on joue 
seul (contre le hasard...) 



1 GOTO aooo 
110 RRND 0 

120 LET R$ = ’ , 07COE0?CRR07TRE07PI 
908COE0QCRR0STRE08PIO09COE09CRRS 
9TRE09PIG10COE10CRR10TRE10PIQ11C 
OE11CRR11TRE11PXQ12COE12CRR12TRE 
12PX013C0E13CRR13TRE13PIG14.COE14- 
CRR14TRE14PIQ" 

130 LET B$="7S9.UDRR‘‘ 

14.0 DXM o5<S,S> 

150 DIM 

160 LET 0=5000 

170 LET JO=500 

175 LET R=0 

180 LET 0=0 

190 RETURN 

310 LET R=1 

320 FOR 1=1 TO 10 

330 LET R1=INT (RND*32) *8+1 

34-0 FOR <J = 1 TO RI STEP 5 

350 LET L = INT (RND*32)*5+1 

360 LET KÊafl$ (L TO L+4) 

^370 LET (L TO L+4)=R$(d TO J + 

380 LET R$tJ TO d+4) =K$ 

390 NEXT J 
4-00 NEXT I 
4-10 RETURN 

510 LET Z$=R$CR TO R+4) 

320 LET -R=R+ê 

530 RETURN 

610 FOR I=M TO M+6 

620 PRXNT RT X .N: '' «TOMW » 

630 NEXT X 
640 RETURN 

71® PRINT « + l..N + l;B$ («JRL ZÊ( 
1 TD 2)-6>;*‘ ';Rt N+S.N+l; “ •* : 

B$(URL Z$C1 TO à)-6) 

720 PRXNT RT M+2,N+1;“ **;RT H 

. +4,N + li’* 11 

730 PRXNT RT M+3,N + lîZ*(3 TO 5) 
740 XF ZSI1 TO 2 J =“ la” THEN PRX 
NT RT M+l/N + l;"10“; RT M+B,N+2;"1 
0 “ 

750 RETURN 
810 DXM CCS) 

• 820 DIM 0$(5,2) 

830 DIM D(41 
840 LET P=1 

850 FOR X=1 TO 21 STEP S 

860 LET C tP) =0 

870 LET C* (P) =Z® ( X TO 1 + 1) 

880 IF 1 = 1 THEN GOTO- 920 
690 FOR d = l TO I—B STEP -5 
, ^a iF Zffi CX TO 1+1} aZÿtJ. TO . J+"X 
) TMEN GOTO 960 
910 NEXT d 

930- FOR d«i T0- 31 STEP B- 
930 IF Z$(I TO X+l)=Z$Cd TO d+1 
> THEN LET C(P)s»CCP)+l 
940 NEXT J 
950 LET P=P+1 
980 NEXT I 
970 RETURN 
1010 LET SUITE=0 
102O LET P1=URL 1$(1 TO 2) 

1030 FOR 1=6 TO 21 STEP 5 
1040 IF P1>URL Z$ (I TO X+l) THEN 
LET P1=URL Z$(X TO'I+lï 
1050 NEXT X 
1060 LET P2=P1 
1070 LET RIG=0 
1080 LET P2=P2+1 
1090 FOR 1=1 TO 21 STEP 5 
110O XF URL Z$(I TO X+l)=P2 THEN 
LET RIQ = 1 
1110 NEXT X 

P2C = 14 RND RIG=1 THEN GO 

ro 1070 

1130 IF P2=Pl+5 THEN LET 5UITE=1 

1140 RETURN 

1210 LET COULEUR=1 

1220 LET Pfc=ZÊt3 TO B) 

1230 FOR 1=6 TO 21 STEP -5 
1240 IF PÎOZÎH+a TO 1+4) THEN 
LET GOULEURr=0 

1250HNEXT X 
1260 RETURN 
1310 LET 01=0 
1320 FOR X=1 TO B 

1330- XF C f.Xl =1 THE.H GOSUe- 1500- 
1340 XF DI=4 OR CCI)=0 THEN GOTO 
1360 

1-SE0- MEXT I- 

136© FOR 1=1 TO 4 

1370 IF D(IJ=0 THEN GOTO 1410 

13*30 GOSUB S00 

1390 LET OSCD(I))=Z$ 

1400 NEXT I 
1410 RETURN 
1520 LET D1=D1+1 
1530 FOR d=l TO S 

1540 IF O® (J y 1 TO S)=C.!MX) THEN 
LET. D CDD =d 



1550 NEXT J 
1560 RETURN 

1610 PRXNT RT 0,1©;”BRN©UE= 

; RT 0,21-LEH STR* 0)0} "9" 

1620 PRINT RT 21,10;"JOUEUR= 

"JRT 21,21-LEH STR* JO;dO;"*" 
1630 PRINT RT 10/Il;"PuT = " ; R 

T 10,19-LEN STR* R) R;*'»" 

1640 RETURN 

1710 LET H=13 

1720 FUR N=1 TU 2S STEP S 

1730 LET Z*=J*CXNT CN./6) +D 

1740 GOSUB 700 

1750 NEXT N 

1760 RETURN 

1*305 LET 3=0 

1310 LET 31=0 

1315 LET 52=0 

1620 LET 33=0 

1325 LET 34=0 

1330 FOR r=l TO 5 

1840 IF C»(X)= M '• THEN GOTO 190 

1350 LET 31=51+(URL {C*(X)>«CfX> 

1360 XF CCI):« 1 RND S2O0 THEN LE 
T 33 =0 CI) 

1870 IF CCI)5l RND 32=0 THEN LET 
S2=C CI) 

1380 IF CfU .il THEN LET 34=54+ CV 
2L C$ CI) *C CI) ) 

1390 NEXT I 

1900 IF 52=2 THEN LET 5=1 
1910 IF 52=2 RND S3=2 THEN LET S 
=2 

1920 IF 52=3 THEN LET 5=3 
1930 IF SUITE=1 THEN LET 5=4 
1935 IF COULEUR=1 THEN LET 5=5 
1940 IF CS2=3 RND 53=2) OR (32=2 
RND 53 =33 THEN LET 5=6- 
1950 IF 52=4 THEN LET S=7 
1970 IF COULEUR=l RND SUITE=1 TH 
SH LE T 3=0 
19a© RETURN 
2010 GOSUB 100 
2017 GOTO 2020 
2020 CL3 
20*30 GOSUB 4000 
2040 GOSUB 300 
2050 CLS 

2060 FOR Y-'l TO 5 
2070 GOSUB 500 
2030 LET OIS (V*) nZS 
2090 GOSUB 500 
2100 LET J$CY)=Z* 

2110 NEXT Y 

2120 FOR N=1 TO 25 STEP 6 

2130 LET H=2 

2140 GOSUB 600 

2150 LET H=13 

2160 GOSUB 600 

2170 NEXT N 

2180 GOSUB 1600 

2190 PRXNT RT 11,0}"MISE OBLIGRT 
DIRE DE 109.” 

2200 FOR Y =1 TO 50 

2210 NEXT Y 

2220 PRINT RT tl # 0j" i( 

2240 LET 0=0-10 
2250 LET JO=JO-10 
2260 LET R=R+20 
2270 GOSUB 1600 
2280 GOSUB 1700 

2290 PRXNT RT 11,0;“ECHRWGE DE C 
RRTE3.TBPER O.-'N." 

2300 LET U=0 

2310 FOR Y = 1 TO B 

2320 PRXNT RT 1£,V*3+ IY-D *3) 

2330 LET Uô=XNKEY* 

2335 IF U=4 THEN GOTO 2430 

2340 IF USb"0" THEN GOTO 2370 

23B0 IF UÉ="N“ THEN GOTO 2430 

2360 GDTO 2330 

2370 GOSUB 500 

3380 LET U=U+1 

2390 LET d«(Y)=Z$ 

2400 LET M=13 

2410 LET N=(Y-1)*6 + 1 

2420 GOSUB 600 

2430 PRINT RT 12>Y*3+(Y~1) *3; " “ 

2440 NEXT Y 

2450 PRINT RT 11,0;“ 

2470 GOSUB 1700 

2480 PRXNT RT 11,0;“JE REFLECHIS 

2490 LET Z«=*'" 

2500 FOR Y = 1 TO B 
2S10 LET Z$=Z$+0$ (Y) 

2520 NEXT Y 
252S DXM C CB) 

2528 DIM C$(5 > 2) 

2530 GOSUB 1000 
2540 GOSUB 1200 

2550 IF SUXTE=1 RND C0ULEUR=1 TH 

EN GOTO 2690 

2560 GOSUB 800 

2570 GOSUB 1300 

2580 PRINT RT 11,0;" m 

2590 PRINT RT 11,0; "d ECHRNGE 
01 J” CRRTE" ; 

2600 XF Dl)l THEN PRXNT *'5**; 

2610 PRINT ”, M 
2620 LET Z$=.•••• 

2630 FOR Val TO 5 
2640 LET Z*=Z*+0*CY) 

2650 NEXT Y 
2660 GOSUB 800 
2670 GOSUB 1000 
2680 GOSUB 1200 
2690 GOSUB 1B00 
2700 LET 01=S 
2710 LET 02 = S1 
2720 LET 03=54 
2730 LET Z^s"" 

2740 FOR Y = 1 TO B 
2750 LET Z*=Z*+J* (Y) 

2760 NEXT Y 
2770 GOSUB 800 
2780 GOSUB 1000 
2790 GOSUB 1200 
2800 GOSUB 1800 
2810 PRINT RT 11,0; 

2820 PRINT RT 11^0;"COMBIEN MISE 
Z UOUS7" 

2830 XNPUT U 

2840 IF U=0 THEN GOTO 3040 
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3850 IF U>JO OR U>0 THEN GOTO 2B 
30 

3B55 IF U(20 THEN PRINT RT 11,0; 
"UOUS ETES UN TROULLflRD..,“ 

2856 PRUSE 100 
2860 l_ET JO=JO-U 

2879 LET 0=0-U 

2880 LET R=R+U+U 
2890 GOSUB 1600 
2900 PRINT RT 11,0; M 

2910 FOR N=1 TO 25 STEP 6 
2920 LET H «2 

2930 LET Z$=a$ (INT CN/-6)+l) 

294.0 GOSUB 700 
2950 NEXT N 

2960 IF S>01 THEN GOTO 3010 
2970 IF 5=01 THEN GOTO 3080 
2980 PRINT RT II,B;"DESOLE,UOUS 
RUEZ PERDU." 

2985 PRUSE 50 
2990 LET 0=0+R 
3000 GOTO 3150 

3010 PRINT RT 11/0;"BRRUO,UOUS R 
UEZ GRGNE." 

3015 PRUSE 50 
3020 LET JO=JO+R 
3030 GOTO 3150 
304® PRINT RT 11/0;" m 

3050 PRINT RT 11,B;"DEGONFLE." 
3055 PRUSE 60 
3060 LET 0 = 0 +R 
3070 GOTO 2990 

3080 IF S4 >03 THEN GOTO 3010 

3090 IF S4 (03 THEN GOTO 2980 

3100 IF SI>02 THEN GOTO 3010 

3110 IF S1C02 THEN GOTO 2980 

3120 PRINT RT 11/0; "EGALITE." 

3125 PRUSE 50 

3130 LET 0=0+R/-2 

314-0 LET JO=J0+R,'2 

3150 FOR Y = 1 TO 50 

3160 NEXT Y 

3170 LET R=0 

3180 GOSUB 1600 

3190 IF O<11 THEN GOTO 3380 

3200 PRINT RT 11/0;"UNE RUTRE PR 

RTIE7 '.O/N) " 

3210 INPUT U* 

3220 IF US=>"0" THEN GOTO 3250 
3230 IF üi="N" THEN GOTO 9999 
324-0 GOTO 3210 
3250 PRINT RT 11,0;" 


3280 IF 0=1 THEN PRINT RT 11,0;" 
CR UR PR5 MIEUX NON..."/'UOUS NE 
POUUEZ PRYER UOS DETTES","ALORS 
HEIN..." 

3285 IF O=1 THEN GOTO 9999 
3290 PRINT RT 11,0;"JE PEUX UOUS 
PRETER DE L ARGENT"," (O^N)7" 
3300 INPUT U* 

3310 IF U$="N" THEN GOTO 9999 

3320 IF U*=”0" THEN GOTO 334-0 

3330 GOTO 3300 

334-Û LET 0 = 1 

335© LET 0=0-500 

3360 LET JO =JO +500 

3370 GOTO 2020 

3380 PRINT RT 11,0; " (> 

3390 IF 0 = 1 THEN GOTO 34.20 
34-00 PRINT RT 11,0; "LR BRNOUE R 
'3RUTE . " / "C" "EST FINI POUR CE SOI 

P." 

3410 GOTO 9999 

3420 PRINT "UOUS ME DEUIEZ DE L 
ARGENT.","JE LE REPREND ..." 

3430 LET 0=0 
3440 LET 0=0+500 
3450 LET JO=JO —500 
3460 GOTO 3000 
4010 PRINT 

402 g P RINT " grsa ma @ 00 


4030 PRINT " 

S B" 

4040 PRINT " 

ES BT 

405 0 P RINT " 
fgB^^RlNT " 


m H B ED SS 


übi k 

B B ESI U 


4070 PRINT " S B B B ES E3 

£3 B" 

4030 PRINT " s mm Q m M 

Ugj B B" 

4190 PRINT , ,"COMBINRISONS : " 
4200 PRINT ,,TAB C5);"l) PAIRE" 
4210 PRINT TRB CS);"2) DOUBLE PR 
IRE" 

4220 PRINT TRB (5);"3) BRELAN" 
4230 PRINT TRB CB);"4) QUINTE" 
4240 PRINT TRB C5);"Bî COULEUR C 
OU FLUSH)" 

4250 PRINT TRB CB);"6) FULL" 

4260 PRINT TRB CS);"7) CARRE" 
4270 PRINT TRB CB);"8) QUINTE FL 
USH" 

4300 PRINT ,/"UN INSTANT JE MELR 
NGE LES CRRTES" 

4310 RETURN 


7 [W 79/ 


< h-7/i 
z iloM 



_Antoine Imbert 


1 REM "POKER" 

3 "ET D o$=;;vg9xyDRn" 

I LE.T Ti = "^iiai3141S16171021 
=2232425262720313233343536373041 
1243444546474" 

7 LET CRUE=0 

8 LET GRIN=100 

9 GOSUB 400 

10 FOR N=0 TO 4 
12 LET E=4 +N +5 . 

14 PRINT RT 10/E;" 

15 FOR M = ll TO 1S 

17 PRINT RT M/E;"EŒSS" 

20 NEXT M 

22 PRINT RT 16/E;" — B " 

25 NEXT N 
30 GOSUB 200 
40 DIM RCS) 

42 DIM B CS) 

44 DIM C(53 
46 DIM P (5) 

48 LET R=0 

50 FOR N=1 TO 5 

52 XF C CM) THEN GOTO 80 

54 LET X=1+2*INT IRND*32> 

56 LET CCN)=URL T* (X TO X+l) 

6© FOR M=1 TO 5 

61 IF C CN) =P CM) THEN GOTO 54 

62 IF M=N THEN GOTO 70 

64 IF CCNîaCCM) THEN GOTO 54 
70 NEXT M 

72 LET E=N*5 

73 LET ACN)=INT CC CN) /10) 

74 LET BCN)=CCN)-INT CC(N)yl0) 
*■ 10 

76 PRINT RT 11,Ej C* CRCN) +1) : " 
"J RT 12/E; " ";RT 13/E;" ";K$C 
3 CN) ) ; ";RT 14/E;" ";RT 15/E; 

"JC£CRCN)+1) # ' 

80 NEXT N 

85 IF R THEN GOTO 300 
66 PRINT RT 18,0;" <1 R 5 >=(JE 

TER) . . . <0>= CCRRTES) " ; RT 19,6;”* 
**<8>=CSERUI)***" * * 

90 LET R=1 
100 LET D $ = INKEY $ 

| jOg D*= ' 4 OR D$= 5" THEN GOSU 
3-®? IP D*="8" THEN GOTO 300 


THEN GOSU 


RË = " S " THEN GOTO 300 

iîo EtÎ $ s0 b then goto 100 
îîl l!t B3!k d * 

120 FOR N = 11 TO 15 
125 PRINT RT N, E; "BjïMî” 

130 NEXT N 

135 LET PCD) =C CD) 

140 LET C CD) =0 
150 RETURN 

200 LET L=21 

201 PRINT RT 18/©;" <<<B> <Q>> 

> ... CC> = CCOUPE) 

205 LET CL=7 

« m* »>*»» ce» »>»:<»••' ... 

225 PRINT RT L~1,CL;"U" 

228 PRINT RT L-l/CLi" " 

230 IF INKEY $ = "S" THEN LET CL=C 

~23S IF INKEY*="8" THEN LET CL=C 

~240 XF CL <1 THEN LET CL = 1 
245 IF CL>31 THEN LET CL=31 
250 IF INKEY $ < >"C" THEN GOTO 22 

5 

255 LET T$=T* C1+(CL*2) TO 64) +T 
* Cl TO (CL*2) ) 

260 REM "MISE” 

265 LET MISE=0 

268 PRINT RT 19/0;" <N>=CMISE 1 
30*)";RT 18/0;" <M > =(MISE 10*).. 

. <0>=(CARTES)" 

270 IF INKEY*="M" THEN GOTO 272 

271 IF INKEY*O"N" THEN GOTO 28 

272 IF INKEY*="M" THEN LET MISE 
=MISE+10 

273 IF INKEY*="N" THEN LET MI5E 

=MISE+100 l 

276 PRINT RT 2/3;MISE 

2B0 IF INKEY*<>"0" THEN GOTO 270 

262 LET GRIN=GRIN-MISE 
2B4 PRINT RT 2/26;" ";AT 2, 

26;GRIN 

285 PRINT RT 19/0;" 

";RT 18/0;" 


301 LET J*=STR* C<10**ACl))+ C1© 
**A C2) ) + C10**fl C3) ) + C10**R C4) ) +C1 
3**A (5) ) ) 

305 LET PR =0 

306 LET U=0 

310 FOR N=LEN J* TO 1 STEP -1 
315 IF J*(N)="4“ THEN LET U=7 
320 XF (PR RND J*IN)="3") OR CU 
=3 RND J* CN)="2"> THEN LET U=6 
325 IF PR AMD J*CN)="2" THEN LE 

r u =2 

330 IF NOT U RND J*CN)="3" THEN 
LET U=3 

335 IF NOT U RND J*CN)="2" THEN 
LET PR=1 
340 NEXT N 

350 IF U OR PR THEN GOTO 370 
352 IF J*="11111000" OR J*="lll 
1100" OR J$="111110" OR J*="llll 
1" THEN LET U=4 

354 IF B C1) =B (2) RND BC1)=BC3) 
2ND BC1)=BC4) RND B(1)=BC5) THEN 
LET PR=1 

356 IF NOT PR OR NOT U THEN GOT 
0 360 

358 LET U=LEN J*+l 
_360 IF PR RND NOT U THEN LET U= 

"*370 XF NOT U THEN GOTO 388 
3S0 PRINT RT 4/11;F* CU-1) 

385 LET GAIN=GRIN+MISE* C INT (1. 
?**U)-1) 

388 PRINT RT 2/26;" "; RT 2/ 

26; GAIN; RT 2,3; r ‘ 

309 PRINT RT 4, 11;" ";R 

T 18,0;" 

"; RT 19/6;" 


" ïfFULOï" 

" * t CARRE * * 

RT 1 ,1;"*MI5E?" ; R 
I.V ; RT 2 / 25; "ÜÎ1100 . * 
iiir;RT 4/25; "*G 


395 GOTO 10 
400 DIM F® CB,9) 

402 LET Fs (1) =" <PAIRES >** 

404 LET F* C2)=" <BRELRN>" 

406 LET F* C3) =" <OUINTE >" 

408 LET F* C4) ="*agHDÔE33*" 

410 LET F* CS) =" WfULlT t" 

412 LET F*(6)="**ÇRRRE**" 

414 LET F* C7) ="**135103* 

416 LET FS C S ) =" * < rafrBg=1g> *" 

420 PRINT RT 0 . Il; " ; R 

r 1 / 2; ; RT 2,2; fâ}" ; R 

T 4,2; "*MI3E*"; R 

1 A25^^ip8i|M'' : rt 2,25; '‘DÎÎ100 . * 

r;.RT 3/25; J RT 4/25; ”*G 

AINS*' 

450 RETURN 

500 FOR T=1 TO 50 

501 NEXT T 

504 CLS 

505 LET DRU E =C.RU E+100 

510 PRINT "SEI3M2" , , "UOUS N RUEZ 
PLUS UN ROND”,"UOUS ME DEUEZ DO 
'tC. "JDAUE; " ,,"<©>=. (CRUE 1©0*.\ 

, < P > = (RECONNRISSRNCE DE DETTE" 

^512 IF INKEY*O"P" THEN GOTO 52 

51-3 LPHINT "0000000000000000000 
3000000000000 

""DETTE""= 

2RUE; " 

000000000000000000003 
30000000000"/////," " 

3 S20 IF INKEY*O"O" THEN GOTO Si 

~52S C.LS 
S30 GOTO O 

550 FOR T=I TO SO 

551 NEMT T 
553 CLS 

SS5 LET GRI MaGRI M-GRME 
560 PRINT "E3H3ËS" , / "UOUS RUEZ S 
JFFI3RI1FNT GAGNE", , , GRIN; "$",//, 

,"SALUT..." 

570 PRINT ** <P> a (PAIEMENT) " 

5B0 IF INKEY*O"P" THEN GOTO 55 
3 

582 LPRINT "******$*$*********$ 

sas®®***®***? 

*** ";grin;” **s 

S*******®*®*?*" ,,,,,," " 

5S3 CLS 

534 PRINT "<0>=(NOUVELLE PARTIE 


535 IF INKEY $ < >" 

5S5 CLS 
590 RUN 
990 STOP 

995 SRUE "POKES" 
999 GOTO 1 


THEN GOTO 53 


.Y. Imbault 
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Une sortie vidéo 
pour le Spectrum 


Pourquoi du N/B pour un ordinateur vanté pour les qua¬ 
lités de sa couleur 7 Pour le travail prolongé sur un 
programme, ce n'est un secret pour personne que la dé¬ 
finition des vidéo N/B est bien supérieure à celle des 
télévisions couleur ; d'où moins de fatigue visuelle. 

F. Bosset vous suggère un montage qui peut rendre un 
signalé service à ceux qui s'étaient procuré leur Spec¬ 
trum en PAL en Angleterre, Belgique ou Suisse avant 
la mise au point de l'interface Secam ou de la prise 
péritel. 


+ 5 V ( 3B 


Diode Ge 
à pointe 


16V 22mF 


.100-TL 


Connecteur 24 broches 


Détrompeij 




>JL UU1CO - 

de (3) à (25) 



Le signal vidéo inversé T est disponible sur la bro¬ 
che 16B du connecteur arrière du ZX Spectrum. Les si¬ 
gnaux de synchro sont à 5 V et le blanc brillant vers 
1 V. 

Le montage à charge répartie permet d'inverser le si¬ 
gnal. A vide son amplitude sera de 4 V, et de 1 V en¬ 
viron sur 75 ohms. 

La diode Ge sert de protection. Sa faible chute de 
tension évite d'écrèter le blanc brillant (qui n'est 
qu'à 1 V). 

Le seul réglage est celui du potentiomètre de 10 koms, 
vers les 3/4, de sorte à avoir une bonne synchro et 
un contraste correct. 


La figure ci-dessus propose une implantation sur cir¬ 
cuit "v.ero-board" de 6 bandes x 16 trous solidaire 
du connecteur. Quelques contacts supplémentaires y 
sont soudés pour améliorer la rigidité de l'ensemble. 
Le connecteur n'a que 24 broches de '3' à '25' de ma¬ 
nière à pouvoir être mis après celui de l'imprimante 
ou d'une carte "8ES". Le détrompeur sera placé en '5' 


.F. Bosset 
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essai logiciel__ 

Assembleurs : 

Artic *$,© 
çQ 0, ZX-AS 

LES CASSETTES D'ASSEMBLEUR ZX81 


Il est tout à fait possible de composer un programme 
en langage machine en POKant directement, dans les 
octets de mémoire choisis pour l'implantation de la 
routine machine, les différents codes décimaux compo¬ 
sant celle-ci. C'est même la méthode vivement conseil¬ 
lée aux débutants car c'est la plus concrète. 

Dès que le programme machine devient important et que 
la maîtrise des instructions du Z80 sous leur forme 
mnémonique est acquise, il est plus agréable de pro¬ 
grammer directement dans ce langage d'assemblage en 
laissant à un programme particulier appelé assembleur 
proprement dit, le soin de faire le "sale travail". 

Cet assembleur charge les codes à leur bon emplace¬ 
ment, calcule précisément les distances et les adres¬ 
ses de transfert etc. 

Il existe des assembleurs en BASIC, mais ils sont 
lents. Des assembleurs eux-mêmes en langage machine 
feront gagner beaucoup de temps au programmeur au mo¬ 
ment de la mise au point, la correction d'une instruc¬ 
tion nécessitant la plupart du temps un nouveau réas¬ 
semblage complet. 

On peut trouver de nombreuses cassettes de program¬ 
mes assembleurs en code machine, notamment en Angle¬ 
terre. Les deux les plus largement distribuées à ce 
jour en France sont le ZX-AS et l'assembleur ARCTIC. 
auquel va assez franchement notre préférence et dont 
nous vous présentons donc ci-dessous les principales 
caractéristiques en opposition à celles du ZX-AS. 

Dès qu'il est chargé, l'assembleur est transféré à 
l'adresse 25676 où il occupe JK RAM. Ceci constitue 
2K de plus que le ZX-As, mais il se trouve qu'il est 
pourtant possible d'assembler sans problème 1,3K de 
code machine, ce qui équivaut au ZX-AS. 

L'éditeur de texte n'est plus celui du BASIC Sinclair 
il a été refait et offre les possibilités suivantes : 

- Répétition automatique 

- Editeur pleine page (le curseur parcourt l'écran) 

- Une lecture devenue très agréable grâce à l'entrée 
des instructions, des commentaires et des labels 
dans des champs définis. 

Le programme chargé, il n'est donc plus nécessaire 
de revenir au BASIC, à la seule exception de la sau¬ 
vegarde sur bande magnétique. 

Appelé en BASIC à l'adresse 30000 il nous offre plu¬ 
sieurs possibilités : 

- Passer en éditeur en pressant "E" et programmer, 

- Faire un "DUMP" en pressant "M" 

(c'est-à-dire examiner et éventuellement corriger 
les mémoires, ceci en code HEXA) 

- Rechercher une paire d'octets en mémoire, à partir 
d'une adresse donnée. En pressant "S" 

- Exécuter une routine à une adresse à choisir "R" 

- Assembler les codes à l'adresse constante de HEX : 
4084 ou 16514 en décimal, en pressant A 


- Il est encore possible de revenir au BASIC en pres¬ 
sant deux fois le Q (quitj. 

De plus un listage est possible sur imprimante avec 
la touche G (en éditeur). 


Les nouveautés de 1'Artic face au ZX-AS : 
Une page écran peut être ainsi composée : 


Champs label 

Champs instruct. 

Champs commentaire 

DEBUT 

LD HL, ( 400' C) 

; CECI EST D-FILE 


LD B,20 

; 20 HEX = 32 DEC 

BOUCL 

INC HL 



LD (HL),+28 

DEC B 

JP NZ BOUCL 

; NOTEZ LA VIRGULE 
(POINT SUR ZX-AS) 


Comme vous le voyez les labels sont alphanumériques 
(au lieu d'un :L indicé) (5 caractères maximum), ce¬ 
ci contribue énormément à faciliter la programmation. 

La ligne LD (HL), + 28 signifie de mettre à l'adresse 
HL la valeur 28 décimal, elle aurait pu être LD (HD, 
IC OU ENCORE LD (HL),"0", 28 est en effet le code de 
" 0 ". 

L'insertion de ligne est immédiate et instantanée par 
la touche E (en éditeur), la suppression l'est de mê¬ 
me par la touche D. 

La virgule remplace le point qui était utilisé dans 
ZX-AS et qui est moins classique comme écriture. 


Il est en outre possible de rentrer directement les 
codes en hexadécimal ou les caractères : 


DEBUT 

JP SAUT 


ABC ? BONJOUR 


10 IC 8B CC FF 42 

SAUT 

LD HL,(. 


Les textes [ABC 7 BONJOUR] seront traduits en code 
et directement assemblés ; les codes 101C 8B CC FF 
42 seront encore plus directement assemblés. 


On peut aussi définir les constantes : 


LD HL,(400C) 

INC HL 

LD (HL), VALEUR 
VALEUR = + 16 


A la fin d'une routine un RET n'est pas utile, l'as¬ 
sembleur positionne automatiquement un saut qui le 
fait revenir. 

Cependant l'assembleur ARCTIC présente quelques infé¬ 
riorités par rapport au ZX-AS qui peuvent se révéler 
gênantes pour certains programmeurs : 

- l'adresse d'assemblage est constante, 

- on ne voit pas les codes d'assemblage contrairement 
au ZX-AS, 

- le DUMP est peu pratique. 

Quoi qu'il en soit, les deux cassettes représentent 
un investissement négligeable en rapport avec leur 
immense utilité et elles se transforment vite en ins¬ 
trument rigoureusement indispensable. 


ZX-AS, BUG BYTE 1981, Liverpool, environ 90 F. 
ASSEMBLEUR ARTIC, ARCTIC 1982 Londres, environ 120F. 

-Y. Dusonchet 
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L'aventure dans le 
labyrinthe du Minotaure 


Labyrinthe + Minotaure + Aventure 

Nous avons présenté dans notre numéro 1, une cassette 
du jeu "labyrinthe", jeu qui suscite des réalisations 
similaires chez nos lecteurs. Le programme que nous 
proposons ici est • spécialement intéressant car il 
effectue une fusion originale entre trois grands clas¬ 


6 LET T =3 

7 LET TR=3 

8 LET F =0 

9 LET R$="LE LRBYRINTHE DE MI 
NOS” 

ip> PRIK 

12 FOR N = 1 TO 20 
14- PRINT RT N,0;^. 

* îs'néxt'n.. 



zlF PF?IN?"RT iï/l; *’ 

a sa . 


' "âf-pilN-P RT "ê^Ts; ' 


s».B I.U. B . 

"■ ;BT 6, 

■ Sm&.’W 

> i-r .. .i j. b 

W.ln.. .9 I.J& 
cmumaamain &aBfœ 


■13; "B . .r'"'iRT 7.13; 

25 PRINT RT 16,4.; 

'^Jè^RX^T RT 17,4.; 

' S 3a® ^rÎÎnT RT ie, 4; 

’fJijj R'ÎNT rt a, s ; " 

"Z^ZPRINT RT 1, s; ■■aggbW=M»iB=a=1^g 


ÏF INKEY$ = ” " THEN GOTO 4-0 
45 GQSUB 200 
50 CLS 
70 LET CO=Q 
00 LET S = 400 
90 LET A=0 
100 QQTO 7000 
200 CLS 

205 PRINT RT 0,4;"LE LRBYRINTHE 
_DE MINOS (i = = = = = = = = = = = = = 

~210~PRINT.RT 4j 0; "-1. UOUS ETES 
LE PRISONNIER DE” , **MINOS , ET UOU 
S CHERCHEZ R SORTIR DU LRBYRINTH 
E. ” 

220 PRINT jj" -2■ UOUS RENCONTRE 
Z PRRFOIS LÉ f ‘ .''MINOTAURE, LR MONS 
TRUEUSE","CREATURE DE MINOS.UOUS 
COMBRTTÉZOU UOUS FUYEZ,UOS CHRN 
CES ETANT”,“DONNEES." 

230 PRINT ,,”-3. UOUS PARTEZ RU 
EC 400 POINTS RUEC LR POSSIBILIT 
E DE UOUS ENRICHIR RU COUR DE UO 
S .COMBATS OU DE UOS DECOUUERTES 

‘240 PRINT ,,"-4/ UOUS POUUEZ CO 
NNAITRE UOTRÉ POSITION SUR LE PL 
RH EN TAPANT LR LETTRE 
4-0 POINTS) " 

390 IF INKEY $ a"" THEN GOTO 390 
400 RETURN 


500 

PRINT 

RT 

8,0;" 

510 

PRINT 

RT 

9,0; ” 

52.0 

PRINT 

RT 

7,0;" 

930 

PRINT 

RT 

10,0;' 


PRINT 

RT 

6,0; ” 

550 

PRINT 

RT 

il,©.; 

560 

PRINT 

RT 

5,»; ” 

570 

PRINT 

RT 

12,0; 

500 

PRINT 

RT 

4,0; ” 

590 

PRINT 

RT 

13,0; 

600 

PRINT 

RT 

3,©;" 

610 

PRINT 

RT 

14,0; 

620 

PRINT 

RT 

2,0; ” 

630 

PRINT 

RT 

15,0; 

640 

PRINT 

RT 

1,0; " 

650 

PRINT 

RT 

16,0;' 

670 

FQR N = 

= 17 

TO 21 

680 

PRINT 

AT 

N,0; ” 

690 

NEXT N 


700 

RETURN 


1000 

PRINT 

RT 

7,6;" 

,6; ” 

** 

; RT 8,6 ; ‘ 

i 6 J " 


iRT 10,6, 

11,6; 

*’ 

*' 


4âig 

PRINT 

RT 



RT 21 , 

2; " 

'BW m 


; RT 12 
f, }RT 9 

*' ; rt 


1020 IF INKEY$= 


THEN GOTO 1020 


siques, le labyrinthe, le minotaure et le jeu d'aven¬ 
ture : dans un labyrinthe, il est possible de se trou¬ 
ver nez à nez avec le minotaure et d'avoir à le com¬ 
battre, mais on peut aussi rencontrer un trésor que 
l'on peut emporter... Tous nos encouragements aux 
lecteurs qui accepteront de se jeter dans le dédale 
de cette belle programmation tout-BASIC. 


RUN 5 

PRINT RT 19,0J”*LE 
“UOS CHANCES: r, ;co; * 
LET TR=3 
PRINT PT 6.5; 

WlNT RT P J,6; 

PRINT RT 9,5; 


pï? INT AT “l1,5 J 
IF IWKEV$a"C" THEN 

IF INKEY$="F” THEN 


■ " 


MINOTRUR 
PC *' 

; RT 

T ; RT 

J" 


GOTO 300 
GOTO 840 


fcCÜMBAT* ' 


1030 
2000 

200é' 

2005 ( 

2606 

2007 
10,5; 

2008 
2020 
0 

2030 
0 

2100 
3000 

3005 

3006 
**" 

3007 

£23" 

3008 

3009 

3010 

3011 

§ïf?L2 LET CO=0 
3015 LET S =S +100 

3018 PRINT RT 0,0; "SCORE = ”; S 

3019 GOSUB 9800 

3020 PRINT RT 19,0;" 

3025 PRINT RT 20,0;" 

3100 RETURN 

•3 110 fg RiNT rt 19,0; " m a a s Bssmasm 

BïN1 rTOMü* :: 

.... THEN GOTO 3120 


GOTO 2020 

LET CR = INT (RNDÏ95) 
FOR M=1 TO 30 
PRINT RT 21,0;” ** 

PRINT RT 21,0;” 

N EXT M 

PRINT RT 21,2;” 

IF CR>00 THEN GOTO 
PRINT RT 21,0;” - 



ËEZ* 


14 

15 

16 

17. . 

18,4; 

CRND*5j 
20 “ 


THEN GOTO 405 


PRINT ... 

IF INKEY $ 

RUN 5 
PRINT RT 
PRINT RT 
PRINT RT 
PRINT RT 
PRINT RT 
LET U = INT 
PRINT RT 

Let S=S-U 
IF INKEY $ < >"” 

LET T=3 
LET CO=0 
LET TR=3 
LET S =S—30 
RETURN 

PRINT RT 19,2; ' 

4102 LET TR=3 

4105 PRINT RT 1 *7 . F> : » ■---i “ : QT 1 

5,5; »B"i«n "lniiiTr ; rt l5,5;*V V* ; «T 
14,6; "rf—V 

4110 LET U = INT (RNDî-100) +1 
4120 PRINT RT 20,0;“POUR OUURIR 
; U;” 7" 

4125 LET X = INT (RND*100)+1 
4130 IF INKEY$a"0" THEN GOTO 415 
0 

4140 IF INKEY$=”N” THEN GOTO 418 
0 

4145 GOTO 413© 

4152 LET S=S-U 
4163 PRINT RT 20, 


0; 


4154 PRINT RT 19,0;” 

4156 PRINT RT 21.1; 1 ‘ 

0”; x ——— 

4160 LET S=S+X 

4170 RETURN 

4185 PRINT RT 19,0;” 

419 0 > print rt 20,0; "MMSSffla8Eiî3æ& 

4-èîà RETURN 

BT sa, 0; “E 
4810 PR INT RT 21,0; "1 

4611 PRINT RT 0,0;"SCORE=000” 

4612 IF INKEY $ < > " ” THEN GOTO 461 
2 

4620 fp INKEY®k"“ THEN GOTO 4.620 
4630 RUN S 
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5030 PRINT 
504-0 PRINT 


: 


PRINT 

RETURN 

RETURN 

PRIIjJ ^ ^ ^ 

PRINT " 

PRINT " 

PRINT " 

RETURN 
PRINT 1 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

IF R«S6 THEN GOTO 1000 
RETURN 


1970 RETURM 
5000 PRINT 
5010 PRINT 
5020 PRINT 
5030 PRINT 
504-O PRINT 
5050 PRINT 
5063 PRINT 
5070 PRINT 
6080 PRINT 
5090 PRINT 
6100 PRINT 
6110 PRINT 
6120 PRINT 
6125 PRINT 
6130 PRINT 
614.0 PRINT 
6150 PRINT 
616© PRINT 
6170 RETURN 
6200 PRINT 
6210 PRINT 
5220 PRINT 
5230 PRINT 
624-0 PRINT 
6250 PRINT 
5260 PRINT 
6270 PRINT 
52Q0 PP.XNT 
6290 PRINT 
6300 PRINT 
6310 PRINT 
5323 PRINT 
6325 PRINT 
6330 PRINT 
634.0 PRINT 
6350 PRINT 
5360 PRINT 
6370 RETURN 
6400 PRINT ‘ 

6410 PRINT 
6420 PRINT 
6430 PRINT 
6440 PRINT 
6450,. PRINT 
6460 PRINT 
6470 PRINT 
6480 PRINT 
5490 PRINT 
6500 PRINT 
6510 PRINT 
6520 PRINT 
6525 PRINT 
6530 PRINT 
6540 PRINT 
5550 PRINT 
5560 PRINT 
5570 P.ETIJRN 
72®® LET P=PEEK 16396+PEEK 16397 
k 256 +26 

700© PRINT , ,TflB 19; •• mm ' Hà X m , I SSftSfcr-i . 








PRINT T RB 13;' 
7020 PRINT TRB 19.; * 


7030 PRINT TRB 19.; ”S Efr 

704O PRINT TfiB 19 ;"U B gg 

7930®PRIMT TftB19;"S S 1% 

7040 PRINT TRS 19; "B B M 

7SV55> PRIHT TRB 19; “S g S8& 

7060 PRINT TRB 19 ; "® © R Q. QL 
7070 PRINT TRB 19; **gt 3 St BM 
7060 PRINT TRB 19 ; "0 ® 

7090 PRINT TRB 19; “ÜE3 ESÜl H ggg 
7100 PRINT TRB 19; *'B «W El 
7110 PRINT TRB 19 ; “S @ 0S 

712© PRINT TRB 19; " BBgg ® 0g 

7130 PRINT TRB 19; B E3 

7135 PRINT TRB 19; "ESS BBSM ETP gj 

7140 PRINT TRB 19; "El 0 0 ® 

7150 PRINT TRB 19; *'Ë3 EU EH IB, 

7160 PRINT TRB 19; "M E53 O E3 El 

7170 PRINT TRB 19; "0 M B33 

718© PRINT TRB 19} BMI 

7185 POKE P,CODE "S" 

7190 PRINT RT 0,0 

7200 0OSUB 5600 _ 

7210 LET P=PEEK 16396+PEEK 16397 

s*256 +1 +33 +23 +25 

7212 LET Z=P 

7220 POKE (P+345 ,42 . 

7225 LET D = -33 

7230 PRINT RT 0,0; "SCORE»"; S J " 

7231 IF T =0 THEM GOSUB 400O 

7232 IF CO<>0 THEN GOSUB 2000 

7234 IF TR =0 THEN GOSUB 4100 

7235 IF S<=0 THEN GOTO 4600 

7236 IF INKEYffi = *' *' THEN GOTO 7236 

7237 IF INKEYis-P" THEN POKE P,C 
ODE 

7238 IF PEEK P=CODE "S" THEN LET 
S =S-40 

7240 IF INKEY $ R" RND (PEEK (P + 
O)=0 OR PEEK (P + D)=56) THEN GOTO 
8000 

7250 IF INKEY $ e**R" THEN GOTO 840 
0 

7260 IF INKEY$ = **G" THEN GOTO 850 
3 

7270 IF INKEY$ = ,, D M THEN GOTO 860 

7275 POKE P,0 
7280 GOTO 723© 

3000 LET P=P+D 
3150 GOSUB 9500 
3175 GOSUB 9600 
3300 GOTO 7230 
3400 LET D = ~D 
3410 LET P=P+D 
3420 GOSUB 9500 
3430 GOSUB 9600 

3435 IF PEEK P=CODE M S M THEN GOT 
O 1000 

3450 GOTO 7230 
3500 LET D1=D 

3505 IF D = -33 THEN LET D = -l 
3507 IF D1-DO0 THEN- GOTO 8540 
3510 IF D =33 THEN LET D = 1 
3512 IF D1-DO0 THEM GOTO 8540 
8520 IF D=1 THEN LET D = -33 
3522 IF D1-DO0 THEN GOTO 8540 
353® IF D=-l THEN LET D=33 
3540 IF PEEK (P+D)=123 THEN LET 
D=D1 

gi£i THEN GOTO 7 2®® 

o545 LET P=P+D 

3550 GOSUB 9500 

3560 GOSUB 9600 

3570 GOTO 7230 

3600 LET D1=D 

3605 IF D = —33 THEN LET D = 1 
8607 IF D1-DO0THEN GOTO 8640 
3610 IF D =33. THEN LET D=-l 
3612 IF D1-DO0 THEN GOTO 8640 
8820 IF D = 1 THEN LET D=33 
fÜS ÏE D1-DO0 THEN GOTO 8S40 
3630 IF D=-i THEN LET D=-33 
3640 IF PEEK (P+D) =126 THEN LET 
P =D1 

3642 IF D=D1 THEN GOTO 7230 
3645 LET P=P+D 
3650 GOSUB 9500 
3660 GOSUB 9600 

3665 IF PEEK P«CODE "S" THEN GOT 
O 1000 

3670 GOTO 7230 

9500 LET R=PEEK (P+D) 

9501 PRINT RT 0,0 

9502 GOSUB 500 

9506 NEXT N 

9507 PRINT RT 0,0 
950© LET S = S —10 

9510 IF D = -33 OR D = 1 THEN LET B = 
PEEK (P-(RBS D)+34) 

SÜS ^Sët^oSf 1 ^ HEN LET c = 
§=Ik ïÊJtëü gf+iîr 1 THEN LET c = 

mm î7p?7Si8°g,5s*?, THB " let b = 

9525 LET H=INT CRND45J 

9526 IF H =0 THEN LET CO = INT (RND 
+ 100)+1 

9520 IF H < >0 THEN LET CO=0 
9529 LET T = INT (RND *7) 

953© RRND 

9532 LET TR=INT (RND*6) 

9535 !F 0=0 RND INT (RND*4)=0 RN 
D F = 0 THEN LET F=4 

9536 IF F =4 THEN POKE P+D,128 

9538 IF F =4 THEN LET Z=P+D 

9539 IF F < >0 THEN LET F=F-1 

9540 IF F=3 THEN LET 0=128 

9541 IF F =0 THEN POKE Z,0 
9550 RETURN 

9800 PRINT RT 0,0 

9605 IF R.= 0 RND C = 12B RND B=0 TH 
EN GOSUB 5200 

9610 IF R =0 RND C=0 RND B=0 THEN 
GOSUB 5400 

9620 IF R =0 RND C=0 RND B = 128 TH 
EN GOSUB 5000 

9630 IF R=128 RND C=0 RND B=0 TH 
EN GOSUB 5800 

9640 IF R = 128 RND C=128 RND B=0 
THEN GOTO 6000 

9650 IF finies RND C=128 RND B = l£* 
3 THEN GOSUB 6400 

9660 IF (R =0 OR R=CODE "S") RND 
C = 128 RND B = 128 THEN GOSUB 5600 
9670 IF R = 128 RND C=0 RND B = 128 
THEN GOSUB 6200 


, Yves Nubert 
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Gérez vos fichiers 


Avec ce court programme de fichier sur cassettes 0R- 
DI-5 poursuit la publication des petits programmes u- 
tilitaires sans prétention qui sont directement mis 
en oeuvre dans notre rédaction. Ainsi le mois dernier 
nous vous avions montré comment nous éditions les ja¬ 
quettes de cassettes pour mettre de l'ordre dans les 
programmes que nous adressent nos lecteurs les plus 
inventifs. 

Le programme ci-dessous nous est bien utile pour re¬ 
trouver qui a fait quoi dans quel numéro, avec un pe¬ 
tit résumé de sa contribution, etc. Rien à voir bien 
sûr, avec la tenue des abonnements, ce petit fichier 
sert surtout à envoyer de l'argent (les "piges" des 
lecteurs, programmeurs ou écrivains - à bon entendeur 
salut !). 


Ce programme traite des fiches de 384 octets, organi¬ 
sées autour des rubriques : 

- nom 

- prénom 

- naissance (on ne s'en sert pas) 

- adresse 

- téléphone 

- divers 

Ces fiches sont traitées par groupe de 12 sur casset¬ 
tes . 

L'ordinateur recherche sur la cassette le groupe de 
12 fiches qui contient la fiche désirée. 

Se mettre en CAPS LOCK. 


1 REH JHiïïïïFXCHIERiiïHiï 

®ORDI-6 *, B.C1EBOEDT 

2 LET NENUalQ 

3 LET FICHEailSO 

4 DIM F* <12,6,64) 

5 LET LHB=1 

10 REM 'ï*»*ï****MENU***i***** 
IB LET T=D 

se PAPER 4: BORDER 4: CLS 
30PRINT RT 2,10:"- MENU 
40 PRINT RT S,5; f 'l> CHARGER DE 
5 FIOHB3“;BT 13,S,' "2) SRUUER LES 
FICHES",-RT 12,é; ( '3l SRUUER LC F 
ROGRAMHE"; RT 14,S; ”4) FRIRE UNE 
FICHE";RT 16,5;"Sj UOIR LR FICHE 

50 LET fi=CODE XNKEY$-46: IF fl< 
1 OR R > 6 THEN GO TO S0 
60 GO TO fl*1000 

1000 REM ïïfïïSS#CHBRGER**»fïï# 

1001 PAPER 7: BORDER 7 : CLS 
1010 PRINT "CHARGER DES FICHES T 

1020 IF INKEY$="N" THEN GO TO Mc 
NU 

11025 IF INKEY$ = "Q" THEN GO TO 1© 
40 

103O GO TO 1020 

1040 INPUT I"NOM DE LH FICHE "); 

X$jÊa LET «MsS + ~ 

" : LET TO 140 

104-5 PRINT / ,,, M flppuye2 sur TAPE 

<“; PRINT /. 

IGE© LORD “G FICHIER- DRTR F$ 

1052 FOR N = 1 TO 12 

VI TO 140 THEN 

GO TO 700O 

1056 NEXT H 

1057 CLS : GO SUS 7010 

1053 GO TO 1050 

1060 GO TO MENU 

2000 REM **•* *****SRUUER***** * ** 

2001 PRPER 7; BORDER 7; CL5 
2010 PRINT "5RUUER LES FICHES ?" 
2020 IF INKEY$ = "N“ THEN GO TO ME 
NU 

2025 IF INKEY®="D" THEN GO TO 20 
4.0 

2030 GO TO 2020 

204-0 PRINT , , : FOR N = 1 TO 12: PR 
INT F $ (N , 1) (1 TO 14.) ;*'<••; N: NEXT 

2050 5RUE "C FICHIER" DRTR MM) 
20S0 GO TO MENU 

3000 REM *****SRÜUER PRÛG****** 

3001 PRPER 7: BORDER 7: CLS 
3010 PRINT "SRUUEGRRDE DU PROGRR 
MME ?" 

3020 IF INKEY 3» = " N" THEN GO TO ME 
NU 

3025 IF INKCY$a"0" THEN GO TO 30 
30 

302Q GO TO 3020 

3030 IF INKEY$<>**” THEN GO TO 30 
30 

3035 SRUE **C FICHIER" 

304.0 GO TO MENU 

4.000 REM * ****** «-ENTRER **** **** 

1001 FOR N=1 TO 12: IF F*(N,1)(1 
TO 5) =" •* THEN 0.0 TO 4-006 

4.O02 NEXT N 

4.004- PRINT PRPER Zi RT 20,2; "PLUS 
DE PLRCE (12 FICHES)": GO TO 30 
4.008 PRPER 7: BORDER 7: CLS 
4-000 LET LRB=N 

4-010 PRINT "FRIRE UNE FICHE ?" 
4.020 IF INKEY$="N" THEN GO TO ME 
NU 

4-030 IF INKEY $ » " O ” THEN GO TO 4.0 

4-0 

4.035 GO TO 4-020 
404.0 CLS 

4-060 INPUT ( "NOM: ?" ) ; F$ (LRB , 1) 

1070 INPUT ("prénom: ?"j;F$(LRB, 



4-080 INPUT ("Naissance: ?");F$(L 
RB, 3) 

4.090 INPUT ("TEL: ? " ) ; F$ (LRB , 40 
4.100 INPUT {"Adresse : ?");F$MLRB 
. 5) 

4-110 INPUT ("REMARQUES: ?");F$(L 
RB , S) 

4-112 GO SUB FICHE 

4.114- IF INKEY $ «” C" THEN GO TO 50 
00 

4-115 IF INKEY$="M" THEN GO TO ME 
MU 

4-116 GO TO 4-114- 
4-120 CLS 

4-122 PRINT "-FICHE- 


4-125 PRINT RT 1,0: LRB;" ** 

4-130 PRINT PRPER- fe; "NOM", PRPER 
7;F $(LRB, 1) 

4-135 PRINT PRPER 5; "PRENOM" , PRP 
ER 7j F®(LRB,2) 

4.14-0 PRINT PRPER S; "NRISSRNCE" , 
PRPER 7;F$(LRB,3) 

4.14.5 PRINT PRPER S J "TEL", PRPER 
7; F$ (LRB, 4-) 

4-150 PRINT PRPER 5,: "ADRESSE" , PP. 
PER 7;F$CLRB,5) 

4-15S PRINT PRPER 5j “REMARQUES" , 
PRPER 7;F®(LRB,6) 

A160 RETURN 

5000 REM * ******CORRIG£R******* 

5001 PRPER 7: BORDER 7: CLS 
5010 GO SUB FICHE 

5015 PRINT RT 20,Oj"Uti User S e 
t 7 pour déplacer le curseur, 

C pour corriger." 

5020 LET N=0 

5030 PRINT RT 2+3 *N , 14-; "0" 

5035 LET K=2+3*N 

504-0 IF INKEY$ = "C" THEN GO TO 51 
00 

5050 IF XNKEY$«"7" AND N>0 THEN 
LET N =N-1 

3060 IF INKEY$="6" RND N<5 THEN 
LET N=N+1 

5065 PRINT RT K,l4>; PRPER 5;" " 

5066 IF INKEY $ «"M" THEN GO TO ME 
NU 

5069 IF INKEY $ = "c" THEN GO TO 51 
00 

5070 GO TO 5030 

5100 INPUT ("ENTREZ LR CORRECTIO 
N ".t ;F$ lLRB,N + r.i 

5110 GO SUB FICHE 

S120 IF INKEY$="M" THEN GO TO ME 
NU 

5122 IF INKEY $ a" C." THEN GO TO S© 
10 

S125 GO TO S120 
5503 GO TO MENU 

6000 REM *****UOIR LR FICHE***** 
S001 LET LRB = 1 

6002 PRPER 7: BORDER 7: CLS 
6004- GO SUB FICHE 
6010 PRUSE 0 

S012 IF INKEY$ = "8" THEN LET LRB « 
LRB + 1: IF LRB = 13 THEN LET LRB=>1 
S014- IF INKEY®*" S" THEN LET LRB = 
LRB-1: IF LRB =0 THEN LET LRB = 12 
6016 IF INKEY®="M" THEN GO TO ME 
NU 

6016 IF INKEY$="C" THEN GO TO 5© 
00 

6020 GO TO 6004- 

7000 RE M ******LISTE FICHE****** 

7001 CLS : PRINT "O.K FICHE TROU 
UEE": LET T=l: PRINT ,, 

7005 GO SUB 7010 

70C6 PRINT ,,"ARRETEZ LE HRGNETO 

700© PRUSE 0: GO TO MENU 
7020 FOR N *1 TO 12 

7025 IF F® (N, 1) (1 TO 140 =N$ THEN 
FLASH 1 

7028 PRINT F$(N,1) (1 TO 14-);.* FL 
RSH 0: PRINT **<*'; N 
7030 NEXT N 

7G3B IF T=© THEN PRINT ,,"PRS DE 
FICHE "; N$ 

7050 RETURN 


B. Clergeot 
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Le ZX81 qui travaille en virgule flottante avec une 
très grande précision est en mesure de calculer des 
courbes complexes et donc d'effectuer de beau# graphi¬ 
ques. Seule la résolution de l'écran sur le modèle de 
base (fonction PLOT) vient brider ces possibilités en 
n'offrant qu'une grille de 64 x 44 points. 

Aussi l'utilisation d'une carte HRG se justifie-t-el- 
le largement pour de nombreux types d'applications. 
Avec la carte Memotech HRG que nous avons testée pour 
vous, la définition est élevée à 182 x 248 points, 
soit 47616 -points. Avec cette carte, un cercle à 1' 
allure plus ou moins "cabossée" deviendra d'une cour¬ 
bure tendant à la perfection, perfection étant dans 
notre esprit ce que peut faire un Spectrum. 


Une carte qui épouse parfaitement l'ordinateur 


La carte contient une EPROM c'est-à-dire un circuit 
intégré porteur d'un logiciel ; ce circuit est sem¬ 
blable à une ROM mais ne peut être effacé par des ra¬ 
yons ultra-violets. Ce matériel assez fragile est con¬ 
tenu dans un boîtier parfaitement calculé pour s'ac¬ 
coler au ZX81 sans rupture de silhouette ; on sait 
que Memotech a justement développé un système modu¬ 
laire assez séduisant sur ce principe. 

Le raccordement offre toute sécurité car les connec¬ 
teurs présentent de bons contacts ; de plus le fabri¬ 
cant a prévu une bande velcro pour assujettir encore 
plus fermement la HRG au ZX. 


Un ZX fermement résolu 


A la mise sous tension l'écran est comparable en tous 
points à celui du ZX sans extension. La consommation 
électrique de la carte étant de 600 mA. on prendra 
garde de ne pas surcharger le bus avec un nombre ex¬ 
cessif de cartes (nous avons pu exploiter sans pro¬ 
blème l'ensemble HRG + 8E/S (entrées sorties) + 16 K. 


La haute résolution à pour élément le plus fin un 
"dot". Celui-ci correspond en mémoire à un bit. 8 dots 
font donc un octet. Une page entière 248 x 192 dots 
soit 47616/8 octets : en fait le système rajoute des 
octets de contrôle et une page HRG fait 6337 octets 
soit environ 6 K de mémoire RAM. 

Avant d'utiliser la HRG, il est nécessaire de donner 
l'adresse de la page. Celle-ci se fera en affectant 
l'adresse à la variable V; 

10 LET V = 19000 par exemple 

On retiendra que la mémoire RAM du BASIC est utilisa¬ 
ble à partir de l'octet 16509 (pour 16 K RAM ce qui 
est le minimum indispensable) et se termine en 32768. 

11 convient de choisir une adresse appropriée à la 
longueur de votre programme. Une fois l'adresse don¬ 
née, il faut initialiser la page, c'est-à-dire que le 
système doit y implanter ses octets de contrôle. Tou¬ 
tes les instructions se passant par la variable Z$ 

on écrira : 


10 LET V=19000 
20 LET Z$="START" 


START permet comme son nom l'indique de débuter un 
travail sur une page, en l'initialisant. Mais l'ordi¬ 
nateur n'a pas encore compris ce que nous voulons ; 
il faut maintenant appeler le logiciel HRG à l'adres¬ 
se constante de 8192. 


10 LET V=19000 
20 LET Z$="START" 
30 RAND USR 8192 


Après un RUN, l'écran reste normal, la page est prête 
et peut être traitée. 

L'utilisation de la carte 


Le mode d'emploi livré avec la carte est complet mal¬ 
gré son petit format. Il est malheureusement rédigé 
en anglais ce qui est commercialement déplorable. 

Nous n'expliciterons pas les 32 instructions qui com¬ 
posent le logiciel de la carte mais nous illustrerons 
rapidement le maniement des plus utiles. 
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HRG 


BLINE 


La page haute résolution n'est affichée que lorsque 
l'utilisateur le demande. Son affichage n'efface d' 
ailleurs pas la page du BASIC puisque les adresses' 
sont différentes. 

L'instruction qui appelle à l'écran la HRG est tout 
simplement "HRG". 


40 LET Z$="HRG" 
50 RAND USR 8192 
RUN 


Après le RUN, l'écran reste blanc et aucun compte ren¬ 
du n'apparaît ; vous pourrez de même afficher la page 
en vidéo inversée avec l'instruction "HRGINV". 

Pour revenir à l'affichage BASIC, rien de plus simple: 
exécuter l'instruction "BASIC", le même résultat est 
obtenu en utilisant le contacteur monté sur la carte 
(petit poussoir noir). 


PLOT 


Supposons qu'il soit utile de "colorier" une partie 
de l'écran, par exemple la partie inférieure de l'é¬ 
cran, délimitée par la droite précédemment tracée. 
Ceci se fait par l'instruction "BLINE" qui trace une 
ligne verticale noire d'abcisse à partir de l'ordon¬ 
née Y, en remontant jusqu'au premier point trouvé et 
de "WLINE" qui efface cette même ligne : 


80 LET Y=0 
90 LET Z$="BLINE" 
100 FOR X=0 T0 247 
110 RAND USR 8192 
120 NEXT X 


Après exécution, l'écran aura cet aspect : 



Comme dans le BASIC de base, l'instruction qui met un 
point sur la grille aux coordonnées X, Y est "PLOT". 
Très simple à utiliser, elle a son opposé "UNPLOT" 
qui efface un point déjà mis aux coordonnées X, Y. 

Par exemple, pour tracer une droite on procédera com¬ 
me suit : 


35 LET Z$="PL0T" 
40 FOR N=0 T0 191 
50 LET X=N 
60 LET Y=N 
70 RAND USR 8192 
80 NEXT N 
90 LET Z$="HRG" 
100 RAND USR 8192 



Pour tracer un autre dessin vous pouvez effacer la 
page par l'instruction "CLEAR" ; en évitant CLEAR il 
est donc possible de superposer plusieurs graphismes. 


Cette petite routine ne dure guère plus de 15 secon¬ 
des en mode SLOW. 

SKETCH 


Il est possible de définir ses propres caractères sur 
cette carte. De manière un peu compliquée mais cepen¬ 
dant rapide, leur nombre n'est alors limité que par 
la mémoire de votre ordinateur. 

Le codage se fait par l'insertion du code dans C$; et 
l'instruction "SKETCH" qui dessine le caractère aux 
coordonnées X,Y. 

Ces caractères étant en fait des dessins, leur tail¬ 
le n'est nullement limitée. 

Citons encore l’instruction "SINCH" qui retranscrit 
aux coordonnées (X,Y) la chaîne de caractères C$ : 


10 LET Z$="SINCH" 
20 LET C$="ZX-81" 
30 RAND USR 8192 


C'est l'équivalent du PRINT du BASIC classique mais 
sur la HRG. 

Il est même possible de sauver la page HRG sur bande 
magnétique en la retranscrivant dans S$ [DIM S$(6337)3 
par l'instruction "STRING" et de faire le contraire 
pour "UNSTRING". 

CONCLUSION 


LINE 


Une autre manière de tracer la droite précédente au¬ 
rait été d'utiliser la fonction "LINE". 

On donnera simplement les coordonnées d'origine (X,Y) 
et les coordonnées de fin de la ligne (P,Q). 


40 LET Z$="LINE 
50 LET X=0 
60 LET Y=0 
70 LET P=191 
80 LET Q=191 

90 RAND USR 8192 ceci pour obtenir le même résultat 
plus rapidement. 


La carte HRG est très performante et fiable. Cepen¬ 
dant son exploitation avec 16 K RAM est bien souvent 
limitée aux mathématiques et analyses numériques. La 
programmation en assembleur sur celle-ci est en effet 
quasi impossible sans 32 K ou plus du fait qu'un as¬ 
sembleur prend 6-7 K et la page mémoire HRG en prend, 
elle, 6. 

Son prix aux alentours de 800 F est très honnête par 
rapport à ce qu'il fut pendant un temps chez un des 
concurrents de Memotech qui la proposait à 1400 F. 

Le prix de cette carte est assez fluctuant selon les 
distributeurs, son prix moyen avoisine 1000 F. 

_B. Clergeot 
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Le programme suivant, court mais très démonstratif, 
illustre les oossibilités d'une carte HRG, en l'oc¬ 
curence la carte Memotech associée à l'extension 16K. 
Ce programme permet de réaliser n'importe quelle fonc¬ 
tion du type y = ax 2 +bx + c avec le choix des inter¬ 
valles de variation. L'illustration est assez didac¬ 
tique pour ne pas intéresser que les matheux. 

Mise en oeuvre du programme 


1) Exécut.ion : Après le RUN, le ZX vous demande d'in¬ 
troduire les coefficients a, b et c. Ensuite il 
vous demande les intervalles de variation sur l'a¬ 
xe des X et des Y. Après quelques instants de pa¬ 
tience, vous voyez apparaître en HRG la courbe de 
la fonction choisie avec les axes gradués. 

2) Programmation : 

I à 5 Initialisation de variables numériques 

7 à 10 Changement de coordonnées 

II à 30 Initialisation en HRG 

80 Le pas de calcul (1 point sur 2) 

91 Vérifie si l'axe X est dans le cadre 

g n II "Y " ■" " " 

110 FONCTION 

500 à 540 Dessine la fonction 

600 à 650 Dessine l'axe X 
651 à 659 Gradue l'axe X 

653 Dessine la flèche 

654 1 Dessine le chiffre "1" s'il existe 

700 à 750 Dessine l'axe Y 

751 à 759 Gradue l'axe Y 

753 Dessine la flèche 

754 Dessine "1" s'il existe 

1000 à 1300 Questions sur le choix des coefficients 
et des intervalles de variations 
. 1250 "FOR N = 1 T0 56" prendrait plus de place en 


lBREM FONCTIONS V C i ORD I -S 
ET H.DEHflRET 
a LET U=S192 
3 LET L =24-6 
4. LET H = 190 

5 LET Z=NOT H =H 

6 GOTO 1000 

7 LET X=L* (C-SW (F-S) 

S RETURN 

9 LET V=H* (E-T) /• (U-T> 

10 RETURN 

11 LET U=22000 

20 LET ZS=“STflRCH“ 

30 ROND USR U 

80 LET DX=(F-SJ/«L/2J 

91 IF Z<S OR Z>F THEN GOTO 94. 

92 LET C=Z 

93 GOSUB 800 

94- IF Z <T OR ZJU THEM GOTO 100 

95 LET E=Z 

96 GOSUB 700 

100 FOR C=S TD F STFP D.Y 

110 LET E=R#C#C-hB*C+K 

120 IF E <T OR E >U THEN GOTO 14E> 

130 GOSUB 500 

ld-0 NEXT C 

150 LET C$=“FONCTION HORS CADRE 

160 LET X=H=X 

170 LET Y=X 

180 LET Z»=”3INCH" 

190 P.RMO USR U 

191 LET Z®="BR3IC" 

192 IF INKEY$="” THEN GOTO IBS 
194 RRND USR U 

200 GOTO 1000 
500 LET Z $ ='' PLOT” 


510 GOSUS 7 
520 GOSUB 9 
530 RRND USR U 
540 RETURN 
600 LET Z$="BLINE" 

610 GOSUB 7 
620 LET Y=JZ 
649 RRND USR 

850 IF X=L THEN GOTO S6<3 

651 FOR E=T TO U 

652 LET C® = ”1E11: " 

653 IF E=U THEN LET CS& = "1SU1*13 

" ,, _ „ 

654 IF E=(H=H> RND EoU THEN LE 
T CtS = “lEllE.»E*E*NElNElSlS161: " 

655 LET X=X 
65© GOSUB 9 

657 LET Z$="SKETCH" 

658 RRND USR U 

659 NEXT E 

660 RETURN 
700 LET Z$=“LINE" 

710 LET X=2 
720 GOSUB 9 
730 LET P=L 
740 LET S)=Y 

749 RRND USR U 

750 IF 0=H THEN GOTO 760 

751 FOR C=S TP F 
752BLET CS = "lNlNlUi" 

753 IF C=F THEN LET C$="1NU1NUS 
S3SSS1NE1NE1:" 

754 IF C=(H=H) RND COF THEN LE 
T Cft="lNlNlN»N#NaNlNlNlNlSWi:" 

755 GOSUB 7 

756 LET Y=0 

757 LET Z8="SKETCH“ 

758 RRND USR ü 

759 NEXT C 

760 RETURN 

1000 CLS 

1001 PRINT "FONCTION DU TYPE : fl 
<X**2> +BX+C" 

1010 PRINT 

1030 PRINT "CHOlaissez LES COEFF 
ICIENTS :" 

1040 PRINT ”fl » " ; 

1050 INPUT R 
1060 PRINT fl 
1070 PRINT "B a 
1080 INPUT B 
1085 PRINT B 
1095 PRINT "C = 

1097 INPUT K 
1099 PRINT K 
1126 PRINT 

1130 PRINT “QUELS SONT LES INTER 
URLLES DE URRIRTIONS '?“ 

1140 PRINT 

1150 PRINT "X. HTM , “i 

1160 INPUT S 

1165 PRINT S 

117© PRINT "X MRX , "j 

1175 INPUT F 

1177 PRINT F 

1180 IF F < =6 THEN*. GOTO 114© 

1190 PRINT "Y HIN , ”; 

1195 INPUT T 

1197 PRINT T 

1200 PRINT "Y MRX , "J 

1205 INPUT U 

1207 PRINT U 

1210 IF U<=T THEN GDTD JJ9B 

1250 FOR N=H=H TO L-H 

1255 NEXT N 

1300 GOTO 11 

9000 SRUE “FONCTION®'’ 

9010 RUN -- ‘ I 

3) Remarques : 

* Ce programme occupe pratiquement les 16 K. C'est 
pourquoi il peut paraître "ésotérique" par cer¬ 
taines instructions comme la 5. "LET Z = NOT = 

H = H" prend moins de place en mémoire que "LET 
Z = 0". Evidemment si vous possédez un 48 K... 

* Il est possible de tracer n'importe quelle cour¬ 
be en changeant 2 lignes (110 et 1001). 

- M. Demaret 
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En l'absence d'une carte HRG, 11 est toujours possi¬ 
ble de réaliser une représentation graphique soignée 
par l'intermédiaire de l'imprimante selon la méthode 
préconisée par le manuel qui accompagne celle-ci et 
qui consiste à ouvrir un tableau (dè 256 x 160 par 
exemple! correspondant aux coordonnées de chaque point 
de l'écran ; les cases de ce tableau sont chargées de 
la valeur 1 ou 0 selon le cas, et l'on envoie à la 
routine d'impression ligne par ligne de l'imprimante. 
La méthode est longue et l'on procède par tâtonnements 
mais les résultats sont bons. 


Le graphique camembert obtenu ci-dessous a été pro¬ 
duit selon cette méthode. Le programme oui le comoose 
a été conçu pour pouvoir être placé en chaînage avec 
le programme fichier 64K de 0RDI-5 n° H dont il récu¬ 
père les valeurs (routine 7 : exploitation des don¬ 
nées ). 


/\ 

E / \ 





LOGEMENT.4- . 32 

RLIMEHTATION .... 17.82 

HRBILLEMENT.15.03 

EQUIPEMENT.10.11 

VOITURES.9.79 

IMPOTS. ..9.4-9 

NOURRICE.9.24- 

SRNTE.8.1S 

DIVERS.7. SS 

LOISIRS.. . . .S. 1S 

1Q175.02 


1 REM U®RND7Ü!gRMDW ?TRN STEP 

2 DIM R(150) 

3 DIM R(12) 

4 OIM 0(12) 1 

5 DIM K(150) 

9 FRST 

13 FOR 1=0 TO 164-3 

14- POKE (I+PEEK 164-00 +256+PEEK 


l'imprimante 


16401) , PEEK (I+PEEK 1636B+25SFP 
EEK 163S9) 

15 NEXT I 

17 POKE 16369,124 

22 FOR 1=0 TO 112 

23 POKE 31744+1,PEEK (2161+1) 

24 NEXT I 

25 POKE 31600,63 

26 POKE 31357,201 

27 POKE 1SS17,95 

28 POKE 16524,79 

29 DIM A$(32,256) 

35 SLOW 

40 PRINT "ENTREZ LE MOIS ET L 
RNNEE R EXSM Zt-ISR : 1(33 aJifMVUEft 

83" 

50 INPUT M 
55 FRST 

60 FOR 1=1 TO ISO 

70 IF INT K(I)=M THEN GOTO 100 
60 NEXT I 
90 GOTO 40 
100 LET X1 = I 
110 FOR X=XI TO 150 
120 IF INT K ( I) OH THEM GOTO 14 

0 

130 NEXT I 

140 LET X2=I-1 

150 IF 1=150 THEN LET X2=I 

160 LET B$=STR$ M 

170 IF LEN 85=3 THEN LET B$="0" 
+3 8 

160 LET W=URL (Btll TO 2)) 

. g30|SLPgXNT TRB g) 

'903 LET P.0il00 J T A 

91© LET X0=12S 
92© LET Y0=12S 
1000 FOR 1=3 TO 240 
1010 LET X = X0+R0#CÛS ( 17120 +PI) 
1020 LET Y =Y0+R0*SIN (I/Z20ÏPI) 
1026 GOSUB 9970 
1026 NEXT I 
1327 LET 0=0 
102S FOR X=128 TO 226 

1029 LET Y» 128 

1030 GOSUB 9970 

1031 NEXT X 

1032 FOR I=X1 TO X2 

1033 IF K 11) =M+.12 OR K(IÏ=M+.13 
OR KCI)=M+.i4 THEN GOTO 10S5 

1036 LET R0=100 

1037 LET Q1=0+PI*R (I) 7D U4) 

1040 LET 0=0+2*PI*fl(I)70(U) 

1041 LET P=1 

1043 IF> Q tPI/2+m+l/10) RND OvPX 
72*(1-1x10) THEN GOTO 8300 

1044 IF O>3*PI/S#tl-l/10) RND 0< 
3*Pl72*(l+l7l0) THEN GOTO 6300 
1048 IF COS 0(0 THEN LET P=-i 
1050 FOR X=X0 TQ X.0 +R0 *005 O STE 
P P 

1060 LET Y=SIN O/COS O*<X-X0)+Y3 
1065 GOSUB 997© 

1070 NEXT X 

1372 LET R0 = 115 

1374 LET XX=X0+R0*COS Ol 

1075 LET YY=Y0+4+R0*SIN Ol 

1077 GOSUB 8000 

1078 LET IÎ=H$(1 TO 1) 

1079 LET XC=CQDE tIS) 

1080 GOSUB 5340 
1085 NEXT I 
1090 GOTO 9978 
1100 PRINT 

l^^L^I^" iM«a=a—. 


2000 FOR I=X1 TO X2 

2005 IF K(I) =M +.12 OR K(I)=M+.13 
OR K (I) =M +. 14 THEN GOTO 2063 
2040 GOSUB 800© 

2042 LPRINT TRB 5,H$; 

2043 LET V=R(I)*1©07D(U) 

2344 LET I$=STR5 INT (U) 

2045 LE T U5 = " . .” ( 

1 TO 18—LEN I$ —LEN H*) 

2047 LET C =25 

2048 GOSUB 7000 
2060 NEXT I 
2365 LPRINT 

2070 LPRINT TRB 8) "&3SS&SSR "lO 
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(U);” F" 

2075 LPRINT 

2076 LPRINT 


2080 

2090 

534.0 

534-5 

-Y) 

5350 

5355 

5360 

5365 

5370 

5375 

5380 

5385 

5390 

6000 

6010 

7000 

U 

7010 
) +. 5 ) 
7020 
7030 
(LEN 
7035 
704.0 
7050 
S001 
8002 
+B$ 
8004. 

8009 
T" 

8010 
RT ION 
8015 
MENT" 
S020 
ENT" 
8030 
S" 

804-0 

6060 

NE" 

3070 


SL OU! 

STOP 

FOR Y =YY TO YY-7 STEP -1 
LET RRNG=PEEK. /.?634î*3-!‘:>ttNi W 

LET 3HR=128 

FOR X=XX TC XX+7 

LET Z=INT tRRNGxSHR) 

LET RRNG=RRNG-Z*SHR 

LET SHR=SHRx2 

IF Z TH EN GO.SUB 9970 

NEXT X 

NEXT Y 

RETURN 

3RUE “ CRMEMBERÜT' 

GOTO 1 

LET XL = INT (RBS U,F.0055 *SGN 


LET XP = INT < <RBS 


«U-XLÏ *109 
•' * ( "0" 


LET Z$=STR$ XP 
LET 2$»STR$ ..XL* 

Zt TO 
LET ZS=Ufi+Zï 

LPRINT.• TR6 /.C-LEN SÿtlïjZÿ 
RETURN 

LET B$=STRS K(IJ 
IF LEN B$=6 THEN LET 

LET B=URL (B$(6 TO 7)) 

IF B = 1 THEN LET H ■& = ■-L.O'GE'HEN 

IF B =>2 THEN LET H$> ="RLIMENT 

IF B=3 THEN LET H$a"HflBILL£ 

IF B=4- THEN LET H$="EG)UIPE» 

IF B=5 THEN LET H$="UOITURE 


IF B=6 THEN LET 
IF B=7 THEN LET H$= 


" IMPOTS." 
"TELEWu 


IF Bas THEN LET H$. = "LQISIRS 


3080831F B*9 THEN LET Ht = " UflCRNDE 


S" 

3090 IF B = 11 THEN LET Hÿ="HOURRX 

CE" .. . . 

Ô130EIF B = 15 THEN LET H®="DIVERS 

314-0 
8150 
830® 

3310 
P P 
3320 
8339 
S350 
3360 
9970 
3371 
>255 

9972 

9973 
9974- 

9975 

9976 
1 

9977 

9978 


IF B = 16 THEN LET H$ = "SRNT£" 
RETURN 

XF SIN 0*0 THEN LET P=-l 
FOR Y =Y0 TO Y0+R0*SIN O STE 

LET X=C-OS O/SIN O* (Y-YB) +X0 
GOSUB 9970 
NEXT Y 
GOTO 1072 

REH PLOT X,Y D-RNS R« 

IFX<© OR XvaOS OR Y (O OR '•%' 

THEN RETURN 

LET C = 1 +1NT (X/SJ 

LET R=256-INT Y 

POKE 16526j CODE R$(C,R) 

POKE 18527,2**t8*C-INT X-l) 
LET R$(C,RJ=CHR$ (USfi 1S5L-4 

RETURN 

REM 


99710IF X<0 OR XJ255 QR Y«3 GR V 
>255 THEN RETURN 

9972 LET C=1+INT (X/8J 

9973 LET R=256-INT Y 

9974- POKE 16526, CGC-E fl$(C,RÎ 

9976 POKE 16527,2**(B*C-INT X-15 
S976 LET R$tC,R>=CHR$ t USR IBS!*- 

9977 RETURN 

9978 REM 

9979 FOR 1=0 TO 24-6 STEP 8 

9980 FOR <J = i TO 02 

9981 FOR K = 1 TO 3 

9982 POKE 32255+KY3* (Ü-X.J ,OOOE P. 
$ <J,K+I) 

9983 NEXT K 

9984 NEXT J 

9985 FOR H=0 TO 31 

9986 POKE 16444+H,H 

9987 NEXT H 

9988 LET HPP.INT=USR .31744 

9989 NEXT I 
9990^GOTO 1100 


Ph. Adet 
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© 64 K (48 K 
utilisateur) : 2180 F 

© Cordon Péritel : 100 F 
© Adaptateur U.H.F. 

(N & B) : 250 F 


©Complet: 1280 F 



NOMBREUX LOGICIELS 


© Imprimante : 

690 F à 790 F 
© Gamme Memotech 
16 K : 395 F, 32 K : 
665 F, 64 K : 995 F, 
H.R.G. : 645 F, etc. 


_VEBmjDJRECTE ET PAR CORRESPONDANCE^ 

BON DE COMMANDE A EXPEDIER A L’UN DE NOS 2 MAGASINS 


NOM ... 

Prénom 

Adresse 


Délai indicatif 1 semaine - Frais de port : + 30 F. 


ARTICLE 

QUANTITÉ 

PRiX | 











TOTAL 

J 
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JACK POT (ZX81) 

Les "machines à parties multiples", comme on appelle 
pudiquement les machines à sous, sont désormais inter¬ 
dites dans les lieux publics ; elles ne le sont pas 
encore chez vous ; profitez-en avec ce beau JACK POT 
tout BASIC de A. Kratz, plein de rebondissements. 



tgpUiJùUJi 

... 

p,ii;JiJÜdüîîS 

,,,.u!.Jb;3 

Éaayd-aa® 

>' 3-5In j j 32ESSS 

B3Ô33Ô. 
&dû-iJ&2xm 
ifnciæsoT.* 



1 REM JRCKPOT 
1©0 PRINT "2X 81 16K 

REUUE" ® 1983 KRRTZ ET LR. 

101 REM : XL N EST PRS NECESSBIR 
E DE RENTRER LES LIGNES 110 R 17 

105 PAUSE 100 

106 DLS 
ii0 print 

ams*' 

115 PRINT 

120 PRINT "POUR ARRETER LE DEFI 
LEMEMT IL SUFFIT D APPUYER SUR 
UNE TOUCHE " 

125 PRINT 
ISO PRINT " “ 


I e^-chrnce:;---i._ 


lUOQS^flWS^UNE-V.&E C.ClNCiJ 
R.UEC. 1 LEnCRPRE : 3- SI 
ESTT’-PER DR MTB- 


14-5 PRINT 

150 PRINT "LE NOMBRE DE JETONS 
DISPONIBLES EST INDIQUE EN CHIFF 
RE ET PRR DIBGRRMME" 

155 PRINT 

^60 PRINT »G55^ËEB2^ËEgiMËEËSB 


165 PRINT- RT- 21O ; "}gE3 APPUYET 
SUR UNE TOUCHE" 

170 IF INKEY$=” M THEN GOTO 170 
175 CLS 

200 REM : JH 

ms 

210 LET G =2000 
215 LET B =0 
220 LET H =500 
225 LET D$ = " 

230 LET C =0 
235 LET P=1 
24-0 LET GR=B 
245 LET «JR =71 
250 LET UD=2S 
2S5 LET R=8 
260 LET R$=" 

265 LET G$=*'JRCKPOT" 

27© LET TT=0 

275 LET L=128 

280 LET 0 = 11 . .. 

iii lIt sa s 

315 GOSUB G 
SSO^LBT R *«;:» m 

325“FOR R=10 TO 18 
33© PRINT RT R,B : R $ 

33S NEXT R 

340 PRINT RT 19 .B; •• «T5TSSg = IBE33 


ÜMoiLI .„2 jJ , B f 

lIt B=0 

FOR R=1D TO 13 5TEP 2 
PRINT RT R.. B.; R* 

NEXT R 
G05U6 3000 

PRINT RT 15 ,Si "PRRTIE ; "; P 
REM : [gËâiüadW 
LET B=9 

LET U A — •' Bfff*3'Bjaf=j=ls3^!at=js<=Tr?r1>1>Targ 

GOSUB H 
LET B = 14 

LET U $ B Jrfdaei 

GOSUB H 

LET B = 1 9^ WSI=t - aMgtei=t . |;;|w j MuMHa 

GOSUB H 
GOTO 600 

REM : |giia^'gaiiy'^'ig'^'a5:aga}a>=4gStt 
PRINT RT 17,8; "PRESSEZ- TGUC 

FOR R=3 TO 9 


DIS FOR X=1 TO 18 STEP 3 
520 LET R$=U$(X TO X+2) 

525 PRINT RT R,B;R$ 

530 IF INKEY $<>"•' THEN GOTO 150 

0 

535 NEXT X 

540 PRINT RT R,B;“ 

545 NEXT R 

550 GOTO BIP _ 

600 REM : SSSSISBSil 

610 IF C=1 THEN GOTO 62S 

615 LET C=1 

620 IF (ZÎOYt RND Z*OX$) OR Z 
$OX$ THEN GOTO 440 
625 LET 0=0 
630 LET nÿs"*** 1 * 

635 LET B=9 
640 GOSUB G 
645 LET B=14 
650 GOSUB G 
655 LET 3=19 
660 GOSUB G 
665 GOTO 2500 

670 IF X$=y« RND .XS=ZJÿ T.HEN LET 
GR=INT (JR/1.5Î+1 

675 IF X$=Z$» RND X$OYlf THEN LE 

T GR= CINT tURyi©) +2)_ 

680 PRINT RT 13,R; "SSEGEraBSEl G 
R; ” 

685 LET JR=JR-GR+1 

690 LET UO=UO-l+GR 

700 LET GR =0 

705 PRINT RT 17,R;R$ 

710 GOSUB 3000 
720 PRINT RT I3,R;R5 
725 IF UR < =1 THEN GOTO 9020 
730 LET P=P+1 
735 LET TT =0 
1000 GOTO , , , LJ 

1510 GOSUB G 

1515 FOR R=i TO 3 — 

1520 LET 0*<n?=OHR4; «CODE A&fflV- 

128) 7 
1525 NEXT R 
1530 LET R$=D$ 

1535 GOSUB G 

1540 IF B=9 THEN LET X$=RÆ 
1545 IF B =14 THEN LET Y$=fl$ 

1550 IF B=19 THEN LET Z$=fi$ 

1555 g^ U ^.,^g, J}= , Jjr4 , )lil -, a 3 

2010 FOR R=3 TO 3 
2015 PRINT RT R,B;R$ 

2020 NEXT R 
2025 RETUR N 
2500 REM : jBTsWagftM 

2510 IF X$=Z$ RND X$=Y$ THEN GDT 
O 2515 

2511 GOTO 2560 

2515 PRINT RT 13,12;G$ 

2520 FOR R=1 TO LEN G$ 

2525 LET G$£fi)=CHR$ (CODE G$(R)+ 
L) 

2530 PRINT RT 13,12;G$ 

2535 NEXT R 

2S4D IF TT=5 THEN GOTO 2550 

2545 LET TT =TT + 1 

2550 LET L=—L 

2555 GOTO 2515 

2560 LET L=123 

3000 REM° _ 

3001 priotrt o7r;r$ 

3005 IF UR> =10 THEN PRTt-iT .RT O,B 
; ;; üfi; " 133”; RT 0,17; ”ŒS? uo; ” 

3006 IF JR <10 THEN PRINT RT O,B; 
"; JR; " EH" ; RT o,i7,*"EffiJ uo; ” 

3010 LET MHaJfl 

3015 LET E =1 _ 

3020 LET U$ = "HËSSS3S" 

3025 GOSUB 3100 
3030 LET MMaUO 
3035 LET E =24 
3040 LET U$="JJÜJJJ" 

3045 GOSUB 3100 

3050 IF UD<=0 THEN GOTO 9000 

3055 RETURN 

3100 LET MR =INT tMM76> 

3105 FOR D=18 TO (19-MR) STEP -1 
3110 PRINT RT D, E; U$ 

3115 NEXT D 

3120 FOR Y =3 TO (1S-MR) 

3125 PRINT RT Y,E; ” 

3130 NEXT Y 

3140 FOR I=E TO (E-1+MM-MR*6) 
3145 PRINT RT 118-MR) ,I;U$ ( 1) 
3150 NEXT I 
3155 RETURN 

9000 PRINT RT 17,R;"UOUS ETES RU 
ime"; RT is,r;r$;rt 13,R;R£ 

9010 GOTO 9030 
9B25 PRINT RT 1 ,0; 


9030 PRINT RT 21,5; 
UER APPUYEZ." 

9035 IF INKEY$="” T 
9040 CLS 
9045 RUN 200 
9050 STOP 

9900 SRUE "JRCKPOüa” 
9999 RUN 


THEN GOTO 9035 


.A. Kratz 


RALLYE (ZX81) 


En attendant une course de formule 1 en plein Paris, 
comme le bruit en a couru il y a quelques semaines, 
roulez ZX au plancher avec ce programme de Rallye, 
la méthode pour introduire les codes machine vous est 
désormais connue. 
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É 0 REM 5>='?67?E£RMt>* NOT" V. F0R 

? B 4 GOSUB fflEÊRND» /■• , *»6775" 67 

M°b7E£RND7 —24-0071TRB C3RND7 +TR 
3 ORNDE£RND“ *' a»-~2£Qj317TRB RBS R 
MD®’ + «,+TflB SOR RNDE77CHRŒ TflB P 
LOT RRD5>=?67777E£RND7ÿ3p@7ll TRB 
CLERR RNDE£RND77XTBB MÏNKEY*^*Ofô 
70 TRB 7INKEYÆE77767?U9RNDCHRa CSC 
OS LN EPXE7777U« a 7XM«7CHRa | > =RTN 
NOT PIU n 0'?XM*9?CHRïB BJRTN . TL N GOTO 
INKEYÿE7777E£RND B SRUE "W. GOSUB 
777LN HPXa’*2Y7XTRB iflXNKEY$8 TRB 0 
INKEY $sU9RNDCHR$ LORD RTN GOSUB P 
IE£RND B B ""«* GOSUB ?V?LN EPIECRND* 
;*V. GOSUB *? , W'?F6V?5'?XNKEY$7E*^7F6 p ^a 
? EV?89TRB # *INKEYÆOGHRSN L7HRSN 
L7 U9RNDCHR* RUN RSN 7PIU9RNDCH 
P.S LORD RSN 7PI7 LPRXNT RNDLN 7P 
IRZ a STR $ B E£RND» B 6 2 +-4 GOSUB PI 
COPY INKEY îBFITRB CL ER R INKEY9TR 
M E770B 70070 ff* 4 aaO0b=OB 70070 &TRN 
E77 B 5 «02370JH37Oji!) a 4- w 0£!^0§7©}370MtR 
M URRNDCHRÆ TO TRB LPRXNT RNDLN 
EPIE77F6777 LPRXNT RNDURRNDCHR5 
RUN TRB LPRXNT RNDLN EPIE7776777 
77 LPRXNT RNDLN 0JPIUCOS 77INKEYŒ 
3 LIST **LN ÉPI* / UNPLOT LN BPI® 
53 COPY LN SPI* PLOT COPY LN HPI® 
COPY COPY YB FRST STR$ LPRINT W 
hrS UNPLOT GOSUB PI FOR LPRINT 77 
TRM - m E£RND7«?y ; 4TRB CODE P170 TRB 
TRB PI+TRB ElPITflN Y M»7E7777^ m 
OSBTRN URRNDCHR$ TO TRB CLERR PIS 
?INKEY$7Y2?TRN UBRNDCHR$ LORD " " 
57INKEY$7Y*7TRN LN GOTO INKEYÆUL 
N PP 177 INKEY$Y M B a7E7777 J 1 **Q TRN 
SfîRWD* tts®^0l3TRN 

20 GOTO 23 _ 

22 SRUE "RRLLYE-PILOT0" 

3002 GOSUB 9100 .' ,_ 

3005 LET B$ = ”DISTRNCE»VÜW*TEMPSbP < 
f«V«=W CREDIT” 

3006 REM DRTR ROUTE 

5010 LET fl$="ll; 11; 11;10J09;08;0 
7; 06; 06; 06; 07; 06; 09; 09; 09; 08; os; 
87; os; 05; 04-; 03; 03; 03; ©3; 04-; 05 ; 06 
; 07 ; 08; 09; 10 ; 10 ; 10 ; u; 12 ; 
s; lô; le; 16; 15; 14.; 13; 12 ; 11; 10 ; 10; 
10 ; il; 12; 13; 14.; 14-; 14-; 13; 12; il; 10 

; 0 b; eë;" 

saai let e&; bb; bb; ob; © 

a; 03; 0<t; 04.; 04.; il; 11; 11; 08; 08; 08; 
as; 03; 05;05; 05 ; 12 ; 12 ;12;os;08; 0& 

• 08;88;” 

3012 LET R$=R$ + "07;06; 05; 05; 05; C 
7^07; 07; 07; 08; 09; 10; 11; 12; 13; 14.; 

SoioHLET R$=R$ + “16;16; 16; 16;16; 1 
• 5 ; 16; le; 16; 16; 16; 16; 16; 16; 16; 16; 

8©ii 6 LET R$«=R$ + "15; 15 ; 16; 17; 17; 1 
7; 16; 15; 14.; 14.; 14; 13 ; 12 ; 11 ; il; il; 
10; 09;08;07; 06 ; 06 ;06;07;08; 09 ; 10 

3015 LET R$=R$ + " 10; 10; 10; ÎO; 10; 1 
O; 10 ; 1 ©; 10; 1©; 10 ; 10 ; 15; is; 15; os; 
06 ; 08 ; 10 ; 10 ; 10 ; 10 ; 10 ; " 

3016 LET P =27100 
3018 GOSUB 9300 

3020 FOR N = 1 TO LEN R£ STEP 3 
8030 POKE P,URL R$(N TO N + l) 

8032 LET PcP+1 
304.0 N EXT N 
3042 CLS 

•3044 PRINT ** MANOEUVRE 

3046 PRINT RT 10,0 ; '*5 . . . . GRUCHE 
DROITE .... 6“ 

3046ÎÎSPRXNT RT 14 , i; "6 . . . . RRLENTI 
R RCCELERER....7" _ m _ 

3050 PRINT RT 4.15; "B 0 S" J PT 5,16 
RT 6,l5;"fllSfl ,, 

3055 PRINT RT 20,0; ”-DUREE DU JE 
U ; ENVIRON 1 MINUTE-DISTRNCE MR 
XIMUM : 1000” 

3058 LET P =27049 
8060 FOR N=1 TO LEN B$ 

307O POKE P + N,CODE B$(N) 

3080 NEXT N 

3090 IF INKEY$«"** THE N GOTO 80 90 
8092 PRINT RT 12,12; “EHaaHüHaB” 
3094 PRINT RT 8 , 15; ” -f + + ” ; RT 9,15 
;"+++";RT 10,15;"+++" 

8096 FOR N = 9 TO 0 STEP -1 
3097 PRINT RT 9,16;N 
309© NEXT M 
3200 SLOU 

3205 RRND USR 16514 __ 

3207 POKE (PEEK 16396+PEEK 16397 
#256+1+33*23+31),156 
8210 FOR N = 1 TO 4 

8212 IF INKEY $<>*•’* THEN GOTO 821 
2 

8214 IF INKEY $ = "" THEN GOTO 8214 

Q21B NEXT N 

3230 GOTO 8092 

9100 CLS . 

9105 PRINT ;; 

oiiB prijtt 1 1ï 


LLYE-PILOTÉ 
9140 PRINT,, 

sapm#' 

9148 PRINT 



9186 PRINT 


1UB" 

1 BH 1 


MM J3 Btyafsij 

tassa mu Esa 



G^^^RINT " «aEBMi 

919§PRINT " BKK3" 

9198 IF INKEY$*=" " THEN GOTO 9198 
9200 FOR N=0 TO 21 
9210 RRND U5R 16879 
9220 PRINT RT N,0;;; 

9230 NEXT N 
9250 GOTO 8005 

3306 PRINT RT 0,0;" COMMANDE DE 
UOTRE UEHICULE - 


9310 PRINT ,,"-l) UQUS PILOTEZ U 
NE RUTO DE COURSE SUR UNE ROU 

TE TRES SINUEUSE." 

9320 PRINT , , "—2) UOUS RUEZ LE C 
NOIX DE ROULEREN UITESSE LENTE O 
U EN UITESSE RRPIDE." 

9330 PRINT ,,"—3) MRIS LR ROUTE 
EN TRES MRUURIS ETRT EST J 

RLONEE DE PIERRES, QUE UOUS 

DEUEZ EUITER." 


, "-4) SI UOUS ROULEZ 
SURFRCE BLANCHE'-UG. 
EST ELEUE D.UN POI 


9340 PRINT 
SUR UNE 
TRE CREDIT 
NT. " 

9350 PRINT 
GRRDE RUX 


16514.33.220.105.34.120.105.42 

16521.12.64.1.215.2.9.236.33 
16529,170,105,1,32,0,237,176,42 

16537.12.64.1.24.1.9.34.122.105 
16546,33,1,0,34,124,106,62,10 

16554.50.126.105.33.232.3.34 
16561,134,105,42,12,64,36,22,22 

16569.30.32.64.128.36.29.194 

16576 . 187 . 64 . 35 . 21 . 194 . 185.64 
16583 , 42 , 12 , 64 , 1 , 11 ,©, 9 , 22,22 

16592.30.12.54.136.29.35.194 
16599,210,64,1,21,0,9,21,194 
16607,208,64,42,120,105,126,79 
16614,35,34,120,105,214,0,194 
16621,246,64,33,220,105,34,120 

16628.105.78.121.42.12.64.35.6 

16636.31.54.128.35.5.194.253.64 
16644,42,12,64,35,35,61,194.8 

16652.65.6.10.54.136.35.5.194 

16560.15.65.42.124.105.35.34 
16667,124,105,58,37,64,214,127 

16674.200.205.42.66.42.122.105 
16681,126,214,0,202,11,67,35 
16688,126,214,0,202,11,67,35 
16695,126,214,0,202,11,67,58 

16702.131.105.61.50.131.105.214 
16709,220,204,215,66,56,132,106 
16716,61,50,132,105,214,153,204 
16723,27,67,205,236,65,42,122 

16730 . 105 . 126 . 214 . 128 . 202.129 

16736.66.35.126.214.128.202.129 

15743.66.35.126.214.128.202.129 
16750,66,42,12,64,1,248,2,9,237 

16759.91.124.105.205.143.66.6 

16766.30.62.100.61.194.129.65.5 

16774.194.127.65.58.37.64.214 

16781.239.204.237.66.42.12.64.1 

16789.5.3.9.237.91.134.105.205 
16797,143,66,42,12,64,1,19,3,9 

16806.237.91.126.105.205.143.66 

16813.42.134.105.43.34.134.105 

16820.33.125.65.35.126.214.1 

16827.202.197.65.42.134.105.43 
16834,34,134,105,0,42,134,105 
16841,36,37,194,216,65,52,44,45 
16849,202,49,67,45,202,49,67,0 
16857,58,37,64,214,247,202,73 
16864,66,58,37,64,214,239,202 
16871,100,66,195,225,64,205;, 15 

16878.66.55.63.1.213.2.42.12.64 
16887,9,1,33,0,30,21,22,32,237 

16896.66.126.9.119.43.21.194 
16903,255,65,43,29,194,253,65 
16910,201,42,122,105,54,5>35,54 
16918,174,35,54,133,1,32,0,9,54 

16927.128.9.54.5.35.54.180.35 

16935.54.133.201.42.122.105.1 
16942,33,0,9,54,136,35,54,136 
16950,35,54,136,1,32,0,9,54,136 
16959,9,54,136,35,54,136,35,54 
16967,136,201,58,38,64,214,223 

16974.194.225.64.205.42.66.42 
16981,122,105,43,34,122,105,126 

16988.214.128.202.129.66.195 
16994,225,64,50,38,64,214,247 

17001.194.225.64.205.42.66.42 

17008.122.105.35.34.122.105.35 
17015-, 35,126,214,128,202,129,66 
17022,195,225,64,205,186,66,58 
17029,126,105,61,50,126,105,20© 

17036.195.125.65.1.240.216.205 
17043,170,66,1,24,252,205,170 

17050.66.1.156.255.205.170.66.1 
17053,246,255,205,170,66,1,255 

17065 . 255 . 62 . 155 . 229 . 213 . 225.60 
17072 , 9 , 56 , 252 , 237 , 66 , 235,225 

17079.119.35.201.22.4.42.12.64 
17087,35,6,24,14,32,126,198,128 

17095.119.35.13.194.196.66.35.5 

17103.194.194.66.21.194.188.66 
17110,201,62,0,50,131,105.42 

17117.120.105.126.198.3.42.12 
17124,64,35,79,6,0,9,54,128,201 
17133,58,38,64,214,223,194,253 

17140,66,33,125,65,35,62,30.119 
17148,201,5Ê,38,64,214,239,192 
17155,33,125,65,35,62,1,119,201 

17183.205.236.65.58.126.105.60 

17170.50.126.105.205.186.66.195 
17177,125,65,62,0,50,132,105.42 

17185.120.105.126.198.4.42.12 
17192,64,35,79,6,0,9,54,0,201 
17201,42.12,64,1,9,3,9,54,156 
17210,201,0,0,0,0,0,0,0,0,0,0,0 
17222,0,0,0,0,0,0,0,0,0.0,0,0,0 
17235,0,0,0,27,118 


BOMBARDIERS (Spectrura) 



. B. Clergeot 


Le jeu de B. Hivet dans le n° précédent à suggéré à 
B. Clergeot une belle version colorée pour Spectrum, 
cette fois-ci l'avion dispose également de missiles 
et de bombes et doit se méfier de la DCA. 


SEEP .05,10; BEEP .05,15: DEEP 
.05,20: BEEP .05,25 

2 GO SUB 3000 

3 LET Cm =0 

4 LET K.=0 

5 LET t =0 
B LET S =0 

10 LET 1=0 
12 LET C=1 
20 BORDER 0 
30 PRPER 0 
32 INK 0 
35 CLS 
38 INK 1 

40 PRINT PRPER 6;RT 21,0;" 
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45 PRXNT PAPER 6; AT 20,0; ** # 

4.6 XNK O 

4-7 >FOR q=Q TO S 

4.8 PRXNT RT RND * 1© 4-1, RMC* *3 if X 
NK ?j"*"J XNK O 
50 NEXT q 
S3 XNK Q 

54. FOR n=0 TO 31 
S5 PAPER INT (RNDÏ6) +-2 
5Q LET d=XNT (RND*12)+6: PRXNT 
RT d-i,n; "H" 

BQ FOR m=d TO 1*3 
7Q prxnt rt ra,n;"o" 

80 NEXT m 
90 NEXT n 
100 LET p=22523 

105 LET Ptcf)f33 

106 LET tm=P+S 

108 BEEP .05,10-. BEEP .05,15: B 
£EP .0S,20 : BEEP .05,25 
110 FOR n=22528 TO 22B2B+73B 
120 PORE n,0: POKE n+1,0: PDKE 
n+2,0! POKE n+3,0 
130 PRXNT RT l,C 
132 LET CaîtX 

134. XF C =32 THEM LET C=0; LET ». 

B U 4-1 

140 XF PEEK tn +5) < >0 THEN GO TD 
1000 

150 IF IHKEY*«‘*0" AND t=Q At4D 44 
<23104 THEN LET t=l: LET pt=n-4 33 
165 IF t = l THEN LET P t =p t +33 
170 XF t = l THEN POKE p t.. 48 : POK 
E pt-32,0 

180 IF t = l AND PEEK CPt-*-32J<>0 
THEN LET S=5>1 : BEEP .005,E : XF 
PEEK (P 14321 =49 THEN LET t =0-. PO 
KE p t , 0 

200>PRrwf HT ax, 10; "score**'*}» 

210 XF INKEV'S = " A " AND A -0 RND C 
m <3 THEN LET ». = 1: LET t»=n+5 
220 XF fc*l THEN LET tm=tm+2: PO 
KE tlrt-2,0: POKE tm,4© 

23© IF X=1 RND (PEEK <tm+2)<.»0 
OR PEEK CttfiVLl <*>«$ THEN POKE Uv 
2,0: POKE tm + 1.0 -, LET fc=0: POKE 
tm,0: LET s =s +1 : LET cm=cm+l: BE 
EP .005,10 
4O0 NEMT n 

1000 FOR n =30 TO 10 3TEP -1: BEE 

P .02 , n: NEXT n 

1010 BEEP ,04,34.3 

1020 PRXNT PAPER 7; AT 5,6, 

HE QOER-HM-tt" 

1030 PAUSE 20 

1040 BEEP .05,1©: BEEP .05,15: B 

EEP .05,20: BEEP .05,25 

1042 BEEP .05,10: BEEP .05,15: B 

EEP .05,20.- BEEP .05,25 

1044 BEEP .35-, SS-. S ESP .13©, 1©: £■ 

EEP .05,20: BEEP .05,2 G 

1055 FLASH 1: PAINT BT S , 10, "SCO 

re=";s: FLASH O 

1060 PAUSE 0 

1070 RUN 

•3000 PAPER 7: CLS 

3002 PLOT 100,100: DRAU 0,-50: D- 
RAU 12,—20,PI/S: DRAU 12,20, PT ,'S 
: DRAW 0,50 

3010 CIRCLE 112,100,12; XNK 1; O 
RAU 1S,10: DRAU 0,-30: DRAU -15, 
-10: PLOT 100,100: DRAU -15,10: 
DRAU 0,-30: DRAU 15,-10 
3020 PLOT 112,92: DRAU 0,-30: PL 
OT 100,110: DRAU O,40: PLOT 106, 
122: DRAU 0,20: PLOT 124,115: DR 
AU 0,5© 

3030 PRXNT AT 20,7; PAPER S;**© G 
lergeGT Bertrand" 

3040 PRXNT AT 5,3; "S"; AT 7 ,.6;. "S" 

, AT 9,9; “SI" 

3050 PRINT AT 9,19; ; fl T 7 ,32; - 

S" J AT 5,25; "E" i RT 3,28; "Q** 

3070 PAUSE 0 
3080 FOR x=B TO 7 
3090 RERD RN 
3100 POKE U5R "3 ** +X , RN 
3110 NEXT K 

3120 DATA BIN 00000000 
3125 DATA BIN QQQOBB&B 
3130 DATA BXN ©Q1111O0 
3135 DATA SIW 00100100 
3140 DRTA QIN 00X001G0 
3145 DATA BXN 00111100 
3150 DATA BXN O0O00000 
3155 DATA BXN 0000D00O 
3200 FOR X=0 TO 7 
3210 READ RN 
3220 POKE USR "b"+X,RN 
3230 NEXT X 

3240 DATA BXN 11111111 
3245 DATA BXN 10000011 
3250 DATA BXN lllOUll 
3255 DATA BXN 11101111 
3280 DATA BXN 10000011 
3265 DATA BXN 11101111 
326© DATA BXN 11101111 
3270 DATA BXN 11101111 
3300 FOR X=Q TO 7 
3310 READ RN 
3320 POKE USR "C"+X,RN 
0330 NEXT X 

3340 DATA BXN 11111111 
3345 DATA BXN OSOQQill 
3350 DATA BXN Q00Q0111 
3355 DATA BXN 01010111 
3360 DATA BXN 00100111 
3365 DATA BXN 01010111 
3370 DATA BJM 00000000 
3372 DATA BXN 10000000 
3380 FOR X=0 TO 7 
3390 READ RN 
3400 POKE USR d +X , RN 
3410 NEXT X 

3420 DATA BXN 11111111 

3425 DATA BXN 1X111111 

3426 DATA BIN 11111111 
3428 DATA BIN 11111111 
3430 DATA BIN 11110000 
3435 DATA BIN 00000000 
3440 DATA BXN 00000000 
3445 DATA BXN 00000000 
3450 FOR X=0 TO 7 
3460 READ RN 

3470 POKE USR "e"+X,RN 
3480 NEXT X 

3500 DATR BXN 11111111 
3505 DATA BIN 11111111 
3510 DATA BIN 11111111 
3515 DATA BXN 11111111 
3520 DATA BIN 00001111 
3525 DATR BIN 01010000 
3530 DATA BXN 00000011 
3535 DATA BXN 00000111 
35S0 CLS 

3600 PRXNT PAPER 4;AT 2,10;"REGL 
ES DU JEU" 

3550 CLS 

3600 PRXNT PAPER 4;RT 2,10;"REGL 
ES DU JEU" 

3610 PRXNT ,,"~1) Uous survolez 
une ville en bombardier, 

vous devez ta raser." 

3620 PRXNT ,,"-2J Vous disposez 
de bombes en nombre >. tenait 

e, et de 3 missiles." 

3630 PRXNT ,,"—3) Si VOUS detrui 
sez tout vous pouvez vous po 

se r . " 

3640 PRXNT Pour attaquer: 

' 0 ' bombes 

3650 1 PRINT S PAPER 4iAT 20,10;"BON 
XF°XNKEY - ® — " " THEN GO TO 36E 
lésa IF INKEY !fi«"" THEN GO TO 36S 

a 

367® RETURN 


SIMULATEUR DE VOL (Spectrum) 


Toujours dans le ciel : un simulateur de vol très 
réaliste de F. Blin. Bien surveiller la vitesse et 
l'altimètre pour ne pas s'écraser à l'atterrissage 


"—-f ■ t 

h) o 


1 REM srNOC-ArrgN OE t/OL 

2 REM ©ORDX-3 ET F.BLIN 

3 REM -.- 

10 LET 0=1 
12 LET Cb=B 
15 DO SUE» 2000 
20 LET b =1000 

30 LET X= INT (RND #1000.1 -50© 
35 RANDONJZE 

40 LET y» INT IRND-X-IDDCO -500 
42 LET C=XNT (RNZ'tf3fl©’> 

45 LET dJ «O 
50 LET Vi=1SD 
55 LET qcVJ.'&O 
60 LET va =>0 
62 LET Va =0 
65 LET fU=31 
SS LET pu =10 

69 DD SUS 7000 

70 BORDER 0 

71 CL& 

72 OO 5UB B0 

75 GO TO 1SB ___ 

S0 PAPER g: PRXNT RT G,G,—MB 



170 PAPER 6: PRXNT AT 11,3;“Ui t 
esse" 

190 PRXNT AT 11,20;"Rltitude" 
200 PAPER 4: PRINT AT 9,3; "Cap" 
: PRXNT AT 9,20;"dif" 

210 PRINT 

220 PRINT RT SO,Qj"POSltlans " 
225 FOR n =0 TO l'u 
230 PAPER 2: FLASH 1: PRINT RT 
21,n;CHR& 144 
232 NEXT n 

234 FLASH 0 

235 REM--- 


): IF di > =380 THEN LET di=360-di 

242 IF di<=© THEN LET di =3&©*ij.5 

243 PRINT RT 9,24;dd;“ 

250 PRINT RT 23,S;XNr Vif* P 

RINT AT 13,23;INT bj" " 


.B. Clergeot 


260 BEEP .1,6® 

270 IF INKEY$="7" AND pu <13 THE 
N LET pu=pu+l 

275 IF INKEY$="6" RND pu>5 THEN 
LET PU=pu-l 

276 PRINT RT 24-pu,l;" AT 22- 

PU , l; " " -- 

278 PRINT AT 23-pu , 1; " < ** 

260 LET daSOR (X*X+y*y): LET di 
=AC6 (X./d> 

290 IF X>=0 AND y>=0 THEN LET d 
i =PTsZ-ài 

300 IF X > =0 AND y < =0 THEN LET d 
i =PX/*2+di 

310 IF x<=0 AND y < =0 THEN LET d 
i =PIx2+di 

320 IF X<=0 AND y > =0. .THEN L ET d 
i =PI/2-di 

325 LET K = C/ 1360/ (2ïPDJ 
330 LET X=X+SIN X *Vi ^30 
340 LET y=W+COS H*ViS3D 
'360 PRINT AT 20,10; "X = " ; INT x;'* 
AT 20,19 ; " y = " ; INT y; f ‘ 

370 IF INKEY$ = "5 { “ THEN LET Ch=C 
h -5 

372 IF INKEY$="1" THEN LET c=c- 

375 IF INKEY$="8" THEN LET Ch=C 
h+5 

37B IF INKEY$="0" THEN LET c=c+ 
379 LET C = C + Ch 

3B0 IF 0=360 THEN LET C=C-360 
390 IF C<=0 THEN LET C=C+360 
400 LET fU=ru-Vi saQGQ 
410 PRINT AT 21, fu; " ** 

415 PAPER 6: FLASH 1 

420 IF Ch <0 THEN PRINT RT 11,13 

; M _\ _";at 12 , 13 ; \ — ";at i 

3,i3; \ _";at 14,13;"^. 

422 IF cb>îî THEN PRINT 5?T 11,13 

; "_ ✓_";at ia,i3;"_ / _";at i 

3,Ts; "_ s _";RT 14',1T3; 

425 IF Ch=S THEN PRINT ST 12,13 
AT il, 13; _";at i 

3/i3; ,l _ _"; AT 14,T3 ;*v_ _" 

428 PRINT AT 10,13j"_ 

430 PAPER 7: FLASH 0 

440 IF INKEY$="h" THEN LET Va=V 

a +5 

445 IF INKEY$="b" THEN LET va«v 
a-5 

448 IF va=15 THEN LET va=10 

449 IF Va = ~15 THEN L ET D 

450 LET VV=va-(20-Vi SlO> 

460 LET h =h 4-V V 

470 IF INT fU=0 THEN DO TO 3000 
480 PAPER S; FLASH 1: PAINT AT 
12-va yB ,13; GHR9 145;AT 12-va/5,i 
8;CHR$ 145: PAPEA 7: FLASH 0 
500 LET Vi=Vi-(ABS (V i-20K-PU > /5 
) *SGN <Vi-20#pt»> 

510 IF va<0 RND Ch=0 TWEN 30 SÜ" 
B 250© 

515 IF VB=0 AND Ch =© THEN GO SU 
B 80 

520 IF ve>0 AND Ch =0 THEN OO SU 
B 2800 

530 IF Ch <0 THEN GO SUB 2700 
535 IF Ch >0 THEN ©O SUB 2B00 
540 IF ( C =180 OR C=360) HND Ch => 
0 AND INT X =0 THEN GO SUB 2900 
550 IF INKEY$="C" THEN GO TO 5® 
00 
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560 
999 
3000 
3010 
3020 
3030 
304-0 
304-5 
2048 
2050 
2055 
. 3080 
3065 
3070 
3080 
3090 
3100 
3110 
2120 
2125 
2130 
2132 
2135 
314-0 
214-5 
3150 
3200 
2210 
3220 
3230 
3235 
324-0 
234-5 
2250 
3255 
2260 
2265 
3270 
3300 
3310 
3330 
2330 
234-0 
334-5 
2350 
3355 
23B0 
2365 
2370 
3375 
24-00 
3600 


JF h <0 THEM GO TO 6000 
QO TO 34-0 
FOR X=0 TO 7 
REBD RN 

P OKE USR a * 4-X , RN 
N EXT X 

DRTB BIN 00000000 
DRTB BIN 00000000 
DBTB BXN 00000001 
DRTB BIN 00O00001 
DBTB BXN 00010001 
DBTB BXW 00010001 
DBTB BIN 11111111 
DRTB BXN 00000000 
FOR X =0 TO 7 
REBD RN 

POKE USR b"+X ,RN 
NEXT X »• 

DBTB BXN 00000000 
DBTB BIN 00000000 
DBTB BIN 00000000 
DBTB BIN 00O00000 
DBTB BXN 00111100 
DBTB BXN 01000010 
DBTB BXN 00111100 
DBTB BXN 00000000 
FOR X=0 TO 7 
REBD RN 

POKE USR C +X,RN 
NEXT x 

DBTB BIN 10000000 
DBTB BIN 11000000 
DBTB BIN 11100000 
DBTB BIN 11110000 
DBTB BIN 11111000 
DBTB BXN 11111100 
DBTB BXN 11111110 
DBTB BIN 11111111 
FOR X =0 TO 7 
REBD RN • 

POKE USR "D +X ,RN 

DBTB BIN 00000001 
DBTB BIN 00000011 
DBTB BXN 00000111 
DBTB BXN 00001111 
DBTB BIN 00011111 
DBTB BIN 00111111 
DBTB BIN 01111111 
DBTB BIN 11111111 
RETURN 



_ ; ; -PRINT 
PRINT INK 

"H"; •’ PRINT INK 4-; 
PRINT INK 0; "S 

"KrJ : rKAin a. 

-RINT î)W 0; 



RINT INK 




F™ PR1NT INK 

2 êi^iN? R îr INK ° ! "T 

B "i! PRINT INK 4- 

PRINT INK i 
2820 PRINT 

S : 

PRINT INK. 

3825 PRINT 

B ; PRINT INK 

PRINT INK 

2630 PRINT f, 0 B 

B : PRINT INK 4.; 

PRINT INK 0;“flr 
2835 PRINT f 'Ej 
B "J: PRINT INK 4-j 

PRINT INK 0J "ffl" 

3060 RETURN 

3900 PLOT 124,142-X6*3GN Vfl 
3910 IF BBS y(100 THEN DRBU (100 
0-h)/10,3-16* (-SON va+2) : IF h<0 
THEN QO TO 6000 
2915 PLOT 124,142-16S-SGN Va 
3920 IF BBS y<100 THEN DRBU -(10 
00-h)X10/3-16* (-SGN Va +2) 

2925 PLOT 124-, 14-2-16*SGN va 
2930 DRBU 0,3-16#(-SON va+2) 

3000 PRINT N BT 21,0;" PBPER 2: 
FLR3H 1: PRINT BT 21,10;"FUEL B 
ZERO I": FLBSH 0 
3002 FOR m =20 TO 30 
3005 FOR n =1 TO 10 
3010 BEEP .01,n 
3012 BRIOHT 0 
3015 NEXT n 
3020 NEXT m 

5 010 PBPER 1: CLS : INK 6: PLOT 
124-, 0: DRBU 0,175 
5020 PLOT 0,87: DRBU 265,0 
5030 PRINT BT 0,10;"CBP13©0"; BT 
si, 10 ;“cap ibb”;RT 10 , 0 ;"cap 270 
RT 10,26;"cap 90" 

304-0 INK 2: PLOT 124-, 83 : DRBU 0, 
7 

5050 PRINT BT 21,19;"ech. oU 200 

S060 PRINT BT 0,18; INK 7} " cap s 
y i v i t " ; c 

5070 PLOT FLASH 1; X/10 + 124-, y X10 + 
87 

5080 IF INKEVUO"" THEN QO TO 50 
80 

5100 PBPER 7: INK 0 
5105 IF O cl THEN RETURN 
5110 00 TO 71 

6000 IF h <-4- THEN CLS : PRINT ;B 
T 10,B;"vous Etes écrasé" 

6010 IF h >=-4- THEN CLS : PRINT ; 
RT I0,8;"bravo atterrissage o .K " 
6020 STOP 

7000 PBPER 6: CLS : INK 2 
7010 PLOT 30,90 

7020 DRRU 120,-10; DRBU 30,10; D 
RBU 0,10; DRBU -30,5 
7030 DRBU -10,10: DRBU -20,0; DR 
BU -70,-10: DRBU -10,20; DRBU -1 
3,0; DRBU 5^-34 


O , Uf : PHHW S , 

704.0 PLOT 139,112: DRBU 



BU -25,0: DRRU 0,9: DRBU 19,0 
704-5 INK 2: PLOT 100,85; DRBU 53 

^05é’"lNK S 0: CIRCLE 165,70,5: CIR 
CLE 120,72,9: CIRCLE 120,72,5 
7070 PLÔT 161,90: DRBU 0,-6,-PI 
7080 PLOT 181,118: DRBU 0,-44- 
7090 PLOT 34-, 90: DRBU -5,33 

7100>PRINT BT 11,20;"I";RT 11,15 
^120 FLBSH 1: PBPER 2: INK 0: 



714-0 FOR X=0 TO 200: BEEP .005,5 
: NEXT X 
7150 CLS 

7160 PRINT " Uous devez piloter 
un avion et le poser au sol.": P 
RINT ,," Pour ceci vous allez de 
voir vous diriger vers une pi 
ste.“: PRINT , ,"vous saurez ou v 
ous etes grâce a un système de c 
oordonnees.": PRINT ,," Binsi la 
piste se trouve t-elleen ( 0 , 0 ). 

7170 PRINT 
7180 PRINT 
re 'C' vous 
rte." 

7190 print ,," Souvenez vous 
vous devez abordez la pis 


â TiTt 


vec un cap de 180 ou 360 deg 
PRINT , , " vous ser.ez donc 
r f l'axe les 'y' ,x sera alo 
gai a 0 ." 

7200 PBUSE 0 
7210 GO SUB 5000 
7220 LET 0=0 

7230 PRINT BT 19,18;"UoiCi l 
rte" 

7235 PBUSE 0 
7260 CLS 
7270 RETURN 


que 
te a 
res . 
su 


F. Blin 


BATAILLE NAVALE (ZX81) 


Quittons le ciel pour la mer avec cette bataille na¬ 
vale à la stratégie fouillée. 


dxh datai,lasi 

LET Lfcc"«Lèl" 

LET “• - 

LET , __ 

' “ §UF TOUCHECOULE 

_ N*="0000" 

L ET H« ="01 -10000000001-1" 
o LET ,EFF=0 

il r!h ^5lkja4=5g^=s=^arf»»»»=i=fcg3 

19 CLS 

20 PRINT " ENTREZ LES D XHE NSIO 

NS DU -JEU. (NOMBRES BÉKi ET 

SB» ï " 

5 5, PRINT RT 3,6;"NOMBRE DE Pg%3 

5333; N="; 

30 INPUT N 

SI PRINT N _ 

35 PRINT BT 4-/4-; "NOMBRE DE HSS 
JH33: Mc"; 

4-0 INPUT H 
4-1 PRINT H 

4-5 IF N <2 OR N >19 OR H <2 OR M> 
19 THEN GOTO 19 
4-7 LET PB =25 

48 GQSUB 2100 

49 CLS 

50 PRINT "UOUS AUREZ 2 POS5IBI 
LITES POU R P LACER UOS NRVIRES: ” 
; flT 3,5;"PMI,E FRITES: ca = " "H"" 
:;,*RT 4/ 6; yt-E gS LE FRIT; cio""S"» 

55 PRINT BT 6, 10; "C«i = " ; 

60 INPUT CS 

61 PRINT Ci 

65 IF LEN CtOl OR CC$0**0» RN 
O CSO"vl"> THEN GOTO 49 

68 GOSUB 2100 

69 CLS 

70 PRINT " ENTREZ TYPES DE NB 

VIRES ET EF FECTIFS SOUS LR FO 

RHE:";RT 3i8i ; RT 4 

^li f "EN R E S P E CTRNT L" * ‘ORDRE INDI0 

75 PRINT BT 6,5; "S5Œ=P0RTE~RUX 
ON " ; BT y.SpTggScESCORT 

eur cËggnSËiâL , bt é,è;Tlii 2 =sous~ 

HflRIN 10,1;^ (LES C 

HIFFRES REPRESENTENT LE NOMBRE 
DE NBVIRES DE CHRQUE TYPES)" 

60 PRINT BT 14,10,"ESb") 

85 INPUT ES 

86 PRINT ES 

90 IF LEN EtOlS THEN GOTO 67 

91 IF E$(l TO 3) <>"PBU" OR E$ ( 
5 TO 7) O "ESC" OR ES (9 TO 11) O" 
SMR" OR CODE E*(4)<28 OR CODE Ei 
C4)>37 OR CODE E*(8)<28 OR CODE 
ES(8)>37 OR CODE Ef(ia) <2B OR CO 
DE ES(12)>37 THEN GOTO 67 

92 GOSUB 2100 

93 CL5 _ 


95 FOR X=1 TO 9 STEP 4 
100 LET C=VRL LfilY TO Y7 
105 LET Rfi=B»(3#C-2 TO 3#C) 

110 PRINT RT 10,13;RS 

112 LET PR=15 

113 GOSUB 2100 

IIS LET E-UBL EBU3+X) 

120 LET EFF-EFF+E 

125 IF C*=".J" THEN GOTO 165 

127 FBST 

130 LET S=3 . 

135 GOSUB 1150 1 
14© LET 3=6 
145.GOSUB 1150 
150 GOTO 177 

155 LET PR=10 

156 GOSUB 2100 

157 CLS 

162 FOR. Toi. TQ E 
165 GOSUB 1000 
170 GOSUB 1300 
175 GOSUB 1100 
177 CLS 
176* SLOW - 
1©0 NEXT T 
VJi LET Y=Y -‘iL 
190 NEXT X 

î-â-S PRINT "UOULEZ-UOUS :": RT 2,3 
; "BT-UNE GRILLE RUEC VOS NRUIREè 
HT LES T 1RS DU' XX'"/BT 4,3V "S'-UWE 
GRILLE UIDE OU VOS TIRS S""INSC 
RIRONT" 

200. PRINT BT 7,10;"C»="; 

205 INPUT CS 

206 PRINT CS 

210 LET PB = 10 

211 GOSUB 2100 „ __ 

215 IF Cfl=”1" OR C#= 2" THEN GO 

TO 230 

220 CLS 

221 GOTO 195 
230 CLS 

--" UOUS ENTRER EZ. UOS 

MBNIERE SUIVANTE : "/R 
a"ÏBT 6,2J"2 PREMIERS 

[HaaHa'';RT 7 , 2 ; "2 dern 


235 PRINT 
TIRS DE LF) 

T 3,10;"HSE 
CHIFFRES- 
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IERS CHIFFRESa fefrlSMglilfa " 

236 LET PR=50 

237 COSUB 2100 
S03- OL3-. 

2io_PRXbrr f)T 10 , 4 .; ■* < >HEH3®jESaj 

âBg!àâga< > - 

S4.1 LET PR = 10 
24-2 GOSUB 2100 
24.3 CL3 
2A4 UEX CF=© 

2A5 LET 3=3 
250 GOSUB 1500 

g? Ilîlsj "Ilîg!P' iBT 

aSB GOSUB 2100 

259 REM tTOMWH1gUCIU?hiPa^ T wagm» g ^ 

260 LET 

261 LET P=0 
265 GOSUB 2010 
270 GOSUB 1600 
275 GOSUB 1700 
280 LET X=PZ 
205 LET U = PU 
S-BŒT LET 5=3' 

aoa oosub is4o 

_2g 5 PR INT RT 15,24.;» UE RT 3 
“TIREiffT 17,26.;- “ 

2*7 LET PR=15 
29B GOSUB 2100 

299 PR INT RT E,23;" ■■ 

300 PAINT RT 7,23; I-l; •• ";ü-l;* 

305 GOSUB 1700 

306 LET PRolB 

307 GOSUB 2100 

300 PRINT RT 5,23;" 

310 GOSUB 1850+S0*D 
315 LET T=T + 1 
320 GOTO 270 

990 STOP __ 


|gi B 3 S5I N ï«'p!ffi|fi5ÈaiS°R°°NN 

ASS. 1 £ R1NT RT 3, es ; ”brterU Aorizo 

NTRL:ffl-;RT 4,5; 4 BRTEflU UERTICRL: 

*:ggg premiers ch 

1005 INPUT T$ 

1006 PRINT RT 9,10;T® 

igig XF LEN T#<>5 OR CT«(1)<>»H" 
RND T® Cl) O-U-) THEN GOTO 1005 
1011 FOR 1=2 TO 5 

1312 XF CODE Tû(I)<28 OR CODE TS 
« I)>37 THEN GOTO 1005 
1013 NEXT I 

1015 LET PR = 10 

1016 GOSUB 2100 

1017 CLS 
10IB FRST 

1020 LET OS=T®(l) 

1025 LET CX=C 

1026 LET CUol 

1027 LET U=N + 1—C 
1020 LET H=H 

*-®30 , X £-r.°S?" U '‘ XHEN GOTO 1040 

1032 LET CI=1 

1033 LET CU=C 
1034. LET U=N 
1035 LET HoM+l-C 

104.0 IF URL T® (2 TO 3) >U OR URL 
T®(4 TO 5) >H OR URL T#(2 TO 3) <1 
a °g U* 1 - T${4 TO 5) <1 THEN GOTO 1 

*-g£g f-iT I =URL T® (2 TO 3) +1 
*-®if PIX ^“^RL t|( 4 TO SJ +1 
IBoo LET S =3 
1060 LET D = 1 
1065 RETURN 

1070 CLS 

1071 5LOU 

ig^RiNT RT 10,05;-ÛEEEfflaaæ^ 

1074 LET PR=10 
1076 GOSUB 2100 
1070 CLS 
1O60 GOTO 100O 
1100 GOSUB 1200 
1105 LET S=6 
1110 GOSUB 1300 
1115 RETURN 
1150 FOR T = 1 TO E 
1155 GOSUB- I2\ïrtEr 
1160 GOSUB 1300 
1165 N EX T^T 

1205 LET CF =RND 
1210 LET 0«-''U" 

1215 LET CI=C 
1220 LET CU=1 
1225 LET U=N+1-C 
1230 LET H=M 

1235 XF CF<0.5 THEN GOTO 1266 
1240 LET ÛS = "H'' 

1245 LET CX=1 
1250 LET CU=C 
1255 LET U=N 
1260 LET H=M+1-C 
1265 LET D=2 

127Q LET I = XNT (U*RND) +2 
1275 LET U=INT (H»RND>+2 
1280 RETU RN __ _ 

güsa REM ES32 ^ aasas3a2Baa ^ mEH£2a 

1300 LET G=S+6*(U-1) 

1305 FOR K=I TO X+CI-1 

1310 FOR L=G TO G+6*(CU-1) STEP 


<K,L><>“ " THEN GOTO 1 

4-09 +D# *3 
1320 NEXT L 
1325 NEXT K 

1330 FOR K =1 — 1 TO I+CI 
1335 FOR L oS-6 TO G+B+CU STEP 6 
1340 IF U 8 ( K , L ) •• THEN GOTO 1 

350 

134-5 LET ü® tK,LJ =**3- 

1350 NEXT L 

13S5 NEXT K 

1360 LET U=0 

1365 FOR K=X TO I+CI-1 

1370 FOR L=G TO Q+6*(CU-1) STEP 

1376 LET U=U + 1 

1380 LET US(K,L-2 TO L)=09+STR5 

C+STBS U 

13B5 NEXT L 

1390 NEXT K 

1400 LET D=® 

1405 RETURN 

1410 CLS 

14 11 S L OU_ _^_Hjfiiaiai ■usumauJEa 

1414 CLS 

1415 GOSUB 1000 

1416 GOTO 1300 

1417 GOSUB 1270 
1419 GOTO 1300 

1 4,5 9, reh EB^B@BEËBB3E3HMaaBlSa 

,1500 LET fl=35+PEEK 16396+256*PEE 
K 16397 

1501 LET BS=N 

1502 XF N<9 THEN GOTO 1510 

1504 FOR KoN TO 10 STEP -1 

1505 POKE -1+R+33*K,1S7 

1506 POKE R+33*K,K+146 

1507 POKE l+fi+M+33*K,5 

1508 NEXT K 

1509 LET BS=9 

1510 FOR K=BS TO 1 STEP -1 

1511 POKE R+33*K,K+1S6 

1512 POKE 1+R+M+33*K,S 

1513 NEXT K 

1514 POKE R+M+1,5 

1516 LET B =R—33 

1517 LET BS=M 

1513 LET C=R+33*(N+1) 

1S20 IF M<9 THEN GOTO 1528 

1522 FOR K=M TO 10 STEP -1 

1523 POKE B+K,157 

1524 POKE R+K..K.+ 14S 


An G LO isp 

\0U 








1525 POKE C+K,3 

1526 NEXT K 

1527 LET BS =9 

152© FOR K=BS TO 1 STEP -1 

1529 POKE fi+K,K+1S6 

1530 POKE C+K,3 

1531 NEXT K 

1532 POKE C,3 

*-535 XF CS=»2» THEN RETURN 

1536 LET R=»*34 

1540 FOR K=3 TO N+l 

1545 FOR L=S+S TO (M+1J *6 STEP 6 

1550 XF U»CK,L)=" " THEN GOTO 15 

1556 LET D = l+(L-5) .>6 
16B6 LET P=(K-2>+33+D-2 

à B §g T 5 F ji? 1 l K ' L ' 1 TO L1 3 " ™ e 

îl®l gg?g ?|g à ias 

1575 POKE fl+P.136 
1560 NEXT L 
1585 NEXT K 
1630 RETURN 

1599 reh 

1600 LET S=6 

1605 PRI NT RT 15,24.; "®ESEï§r *’ J RT 

i6,e4;- aaa -;rt i7,£§;“ s 

1610 INPUT S® 


1625 FOR K=1 TO 4 

1626 IF CODE S»(K)<28 OR CODE S® 
(K)>37 THEN GOTO 1680 

1627 NEXT K 

1630 LET laURL 5®<1 TO 2) +1 

1631 LET U=URL 5®f,3 TO 41+1 
1635 IF I <2 OR I>N +1 OR U <2 OR U 
i-H+1 THEN GOTO 1680 

1640 LET 0=6+6K-(ü-l) 

1645 IF U®(X,G)0“X- THEN RETURN 

1850 XF S=3 THEN GOTO 188 0 
*•655 P RINT RT 15,24;-no p o a - ; RT 1 
s, 25; -SEïâaS" ; RT 17, 

1656 GOSUB 2100 

1657 GOTO 1605 
1660 GOSUB R 
1665 LET X=PX 
1670 LET U=PU 
1675 GOTO 1640 
1680 GOSUB 2100 
1665 GOT O 1605 

î-sea rem nâpiSîaiMa^BsrasïîEasgs 

1700 LET D = 1 ■ 

1705 IF U#tI,G-l TO G)=- - OR U 

*CX,0-1 TO G)=" 3» THEN GOTO I 7 S 

|?|i hg gtetf'Srtift-i, 
i?n tir ^ï rl - j * (i ' a > 

1726 LET XSaX 

*•727 LET Y=G-6*CU-1) 

*■726 LET Y3=Y+6*(C-1) 

mi let°x=x-ü+ï hen ooto 1736 

î?12 fcif «s x+c " 1 

1735 LET YS=Y 

1736 LET 0=2 

1740 FOR K=X TO XS 

*•74.1 FOR L=Y TO YS STEP 6 

1L,, ° 0 

1746 NEXT K 

1750 LET "'a*” 1 » 1393 * 

17|5 GOTO 1760-COS (PI*(URL C$+5 

*■759 P5i hlT fiT X/^;"S3" 

î?il tir il:!î?s là ' a - 1 »* is - B 

1770 SOTO 177B-CÜ5 IPX, (UBL C„5 

1774 PRINT RT I,UilBtD) 

J775 PRINT RT S,2&;D®CBX TO BS) 
1760 IF D<>3 THEN GOTO 1820 
1765 PRINT RT 6,24;BS(3*C-H TO 3 

1790 LET 

1792 LET BS=BI+1 

1795 LET K=URL N*(BI TO BS)+1 

1796 LET NSIBI TO BS)=STRS K 

1F „ ^51= . HS (BI TO BS) =ÊFF THE 
N GOTO 1827+S 
1803 PRINT RT 6,24;" 

1805 GOTO 1801+3*5 
1810 FOR K=X—1 TO XS+1 
1611 FOR L=Y —6 TO YS +6 STEP 6 
1613 LET U®(K,L)=”X" 

ISIS NEXT L 

1816 NEXT K 

1813 RETURN 

1820 LET U*<2,G)=-X- 

1825 RETURN 

1830 CLS 

1831 PRINT RT 10,5;-U-"RX GRGNE 
üN ••jTi" TIRS" 

1832 GOTO 1840 

1833 CLS 

PR?.NT RT 10,5; -BRRUO,UOUS R 

uez grgne"; mr 11 , 12 ;-en -;t; - ti 

RS“ 

1840 LET Pfl=10 
1844 GOSUB 2100 
1645 GOSUB 2100 
1847 CLS 

1850 PRINT RT 13.3; ■' nOTfGfflEWr»f3=)gBEJ 
5S3SI53" 

1855 INPUT C® 

1860 if C«= M NON“ THEN GOTO 1870 
1662 CLS 
1865 RUN 

1670 CLS _ 

1875 PRINT RT 10,6; “ fcUa=^BOKWa - 
1080 STOP _ 

1899 REM B3H3gÇE3ga§BHHSaS5Sa 

1900 IF CF=0THélBOTO 2010 

1905 if POl THEN GOTO 1935 
1910 LET R =1010 

*■315 IF CF=4 THEN LET CF=0 

1920 LET CF=CF+1 

1925 LET P=0 

1930 GOTO I960 

1935 LET H=-H 

1940 LET U =—U 

1946 GOTO 1990 

1950 LET P=P+1 

1955 XF CFO0 THEN GOTO 2030 
1960 LET TI=X 
1965 LET TU=U 
1970 LET fi=1970 
; J975 LET CF=INT (4*RND+1) 

198© LET H='JRL H$(2*CF-1 TO 2*CF 

1965 LET U=URL H®(2*CF+7 TO 2*CF 

1990 LET PI=TX+H 
1995 LET PU=TU+U 

1906 XF PX -1 OR PI-N+a OR PU -1 O 
R PU=M+2 THEN GOTO fl 

1997 RETURN 
2000 LET CF =0. 

2003 LET P=0 

2010 LET PI=INT (N+RND+2) 

2015 LET PU=INT (H*RND+2J 
2020 LET R=2010 
2025 RETURN 
2030 LET PIcI+H 
2035 LET PU=U+U 

2037 IF P1=1'OR PIaN+2 OR PU=1 Q 
P. PU=H +2 THEN GOTO 1935 
2040 RET URN 

2099 REM eaSKBÜaEI 

2100 LET 0=0 

2105 FOR Z=1 TO PR 
2110 LET 0=0+1 
alie NEXT Z 
2120 RETURN 


-L. Pinardon 
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L’OBBUMEÜH DE POCHE, Servies Abonnements, 

39 HÏÏE DE LA 0BATOE AUX BELLES 78484 PABIS CEDEX 10 

_Prénom_ 


Adresse 


Pays Code postal_Ville_ 

Veuillez m’abonner pour 1 an à L’ORDINATEUR DE POCHE ; 

Ci-joint mon règlement de 130 PP (Belgique : 1160 PB ; Suisse': 40 PS ; autres pays : 170 PP) 

(Tarif par avion : Afrique francophone : 205 PF ; autres Afrique, Amérique : 255 PP ; Asie, Océanie : 295 PP) 




























Référence 176 du service-lecteurs (page 69) 


Avec le Jupiter ACE, profitez de l’expérience professionnelle du Forth. 


A YliC le Jupiter Ace, nous sommes en 
k présence de la deuxième généra¬ 
tion d’ordinateurs domestiques. Après 
avoir fait ses preuves dans des domaines 
aussi précis que l’aéronautique, la 
recherche scientifique et l’industrie, le 
Forth fait une entrée remarquée chez le 
particulier, même débutant. Plus sophis¬ 
tiqué que le Basic, le Forth est pourtant 
d’un apprentissage plus aisé et plus 
rapide. 

Plus qu’un langage, un système 

Le Forth se définit communément 
comme un «système» informatique plu¬ 


tôt qu’un «langage» informatique. Un 
système original qui ne ressemble à 
aucun autre. Un système dont la pro¬ 
grammation très compacte permet une 
utilisation maximale de l’espace mémoire. 

Un système à structure modulable 

La caractéristique essentielle du Forth 
est d’être un langage évolutif. Si la plupart 
des langages informatiques sont figés en 
des instructions définies et invariables, le 
Forth laisse la possibilité à l’utilisateur de 
compléter à l’infini un dictionnaire d’ins¬ 
tructions déjà très riche. 



Le dictionnaire Forth 

La mémoire interne (ROM) du Jupiter 
Ace comprend un nombre important 
d’instructions (150 environ) auxquelles 
vous rajouterez facilement toutes celles 
que vous créerez en fonction de vos 
besoins. En effet, à chaque sous-pro- 
gramme sera associé un nom qui, dès 
lors, deviendra une instruction à pa 1 
entière. Vous aurez généré ainsi de nou¬ 
velles procédures. Le dictionnaire initial,- 
en permanence complété par l’utilisa¬ 
teur, est à l’origine de la puissance et de la 
très grande maniabilité du Forth, et per¬ 
met l’élaboration de programmes très 
compacts. 

La mémoire Forth 

La puissance du Jupiter Ace réside aussi 
dans le fait que les données sont littérale¬ 
ment «empilées» en mémoire. La der¬ 
nière information stockée se trouve par 
conséquent la première accessible sans 
qu’il soit nécessaire de faire appel à une 
adresse précise. Cette caractéristique 
confère au Jupiter Ace une vitesse d’exé¬ 
cution considérablement supérieure aux 
autres langages. Pour exécuter les opéra¬ 
tions qui suivent (1000 identiques), le 
temps mis par le Jupiter Ace sera : 


Type 

Temps 

d’opération 

d’exécution 

boucle vide 

0,12 sec. 

impression caract. 

0,62 sec. 

add. 2 nombres 

0,45 sec. 

mult. 2 nombres 

0,9 sec. 


Vendu 1140 F TTC en modèle de base, le 
Jupiter Ace est conçu pour recevoir des 
extensions de mémoire de 16 K et 48 K. 





























































































Enfin une véritable informatique puissante à usage domestique. 


. 





AVENUE, 
MAC-MAHON 

I 

1 

AVENUE 

WAGRAM 

AV. DES 

CHAMPS ÉLYSÉES 


% 



AVENUE 

HOCHE 

AVENUE 

DE FRIEDLAND 



Venez essayer le Jupiter Ace au centre de 
démonstration Valric-Laurène, du lundi au 
samedi inclus, de 10 h à 18 h 30,22, avenue 
I-Ioche - PARIS S. 225.20.98. 

Un langage unique en son genre 

Le Jupiter Ace, en utilisant le Forth, 
devient grâce à la souplesse de ce langage, 
le micro-ordinateur des fonctions les 
plus complexes comme celui des fonc¬ 
tions les plus simples pour tous ceux 
désireux de s’initier. 

Les multiples possibilités du Jupiter Ace 
lui assurent d’être le micro-ordinateur 
des prochaines années. 


Accédez à la puissance Forth. 
Remplissez et renvoyez rapidement le 
bon de commande ci-contre. 

Vous recevrez votre Jupiter Ace im¬ 
médiatement après réception de 
votre commande. 

Si, au cas fort improbable, après 15 
jours d’utilisation du Jupiter Ace, vous 
n’en étiez pas satisfait, il vous suffirait de 
nous renvoyer votre ordinateur. Nous 
vous rembourserions immédiatement et 
intégralement. 

Documentation gratuite sur demande à 
Valric-Laurène. 


Informations techniques 

Matériel 

Z 80 A. Vitesse : 3,25 MHz, 8 K octets ROM. 
3 K octets RAM. 

Clavier 

40 touches mécaniques avec auto-répétition 
sur chaque touche. 

Ecran 

Mémoire écran (32 colonnes sur 24 lignes). 
Affichage programmation. 

Graplnijues 

Ecran divisible en 64 x 48 zones (noircies, 
blanchies ou clignotantes). 

Le jeu complet de caractères (128) et leur vidéo 
inverse peuvent être redéfinis pour permettre 
une résolution graphique très précise (256 
x 192). 

Ordres de contrôle 

IF-ELSE-THEN, DO-LOOP, DO + LOOR 
BEGIN-YVHILE-REPEAT, BEGIN-UNTIL : 
mixables ou fiables entre eux. 


Cassette 

Sauvegarde sur cassette des programmes et 
des données. Vérification de la sauvegarde et 
de la restitution. 

Chaînage des programmes. Des blocs de mé¬ 
moire peuvent être sauvés, restitués, vérifiés 
et rechargés. Programmes titrés. Connectable 
à la plupart des magnétophones portables. 
Vitesse 
1500 bauds. 

Bus d’expansion 

Permet déconnecter extensions de mémoires 
et autres périphériques. Contient alimenta¬ 
tion et signaux spécifiques du Z 80 A. 
Structure des données 

Intégration, virgule flottante et chaîne de 
caractères peuvent être dressées comme 
constantes, variables,en de multiples dimen¬ 
sions, et mélangées sans restriction de nom. 
Son 

Haut-parleur interne programmable sur toute 
la gamme sonore. 


un iramcà eu Lie cua. ui gciiumc suiiuic. 

iMÔNSTRÂnÔN^TCW^SÔjRSËj 

. aaflg s Tt£s pool - 

■Bon de commande- 


A renvoyer à : Valric-Laurène S.A. 22, avenue Hoche - 75008 PARIS - 2252098 

O Je désire recevoir le micro-ordinateurjupiter Ace (garanti 1 an), avec son adaptateur secteur et son 
manuel d’utilisation pour le prix de 1140 F TTC (frais de port inclus), plus gratuitement 
la première cassette de mon futur logiciel. 

O Je désire aussi recevoir l’extension de mémoire de 16 K pour le prix de 390 F TTC. 


Nom_ 

Profession. 
Adresse_ 


. Prénom. 


Code postal I_L 

Tel. (bur.)_ 


J_L 


I Ville. 


. Tél. (dom). 


Signature (pour les moins de 18 ans, signature de l’un des parents) 


Mode de règlement, joint à la commande : □ Chèque bancaire ou CCP 

□ Contre-remboursement (+ 16 F à la livraison) 


aurene s.a< 


K 
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Lorsque l'on compare le ZX81 à d'autres machines, il façon selon laquelle chaque caractère est programmé 

arrive que l'on regrette de ne pas disposer sur cet en ROM, sous la Forme de huit octets : ce sujet a en 

ordinateur, d'un jeu de caractères plus complet, et effet été traité maintes fois dans le passé.(l) 

notamment de lettres minuscules . La forme des carac¬ 
tères d'origine est programmée dans le dernier bloc 

de 512 octets de la ROM, et il est bien tentant de Par contre, il est intéressant de noter que, lorsque 

chercher à remplacer cette zone de la mémoire morte l'extension mémoire 16 K est branchée sur le ZX81, la 

par une mémoire vive, dont on pourrait modifier le mémoire de 1 K octets incorporée se trouve neutrali- 

contenu à volonté (comme sur le SPECTRUM). sée par forçage à + 5V de sa ligne de sélection( RAMCS). 

LES DONNEES DU PROBLEME : 

- Plutôt que d'ajouter un boîtier de RAM pour y loger 

nos caractères personnalisés, il nous a semblé plus 

Nous ne reviendrons pas ici sur la description de la élégant de profiter de cette particularité. 



Le tableau de la figure 1 montre que le générateur de 
caractères occupe les adresses 7680 à 8191- Pour rem¬ 
placer cette zone de ROM par de la RAM, il suffit de 
forcer à + 5V la ligne de sélection de la ROM, tout 
en mettant à la masse la ligne de sélection de la RAM 
interne (le bloc 16 K se sélectionne seul à partir du 
bus d'adresses). Ces forçages ne devront avoir lieu 
que lorsque l'unité centrale tentera d'adresser le 


générateur de caractères, c'est-à-dire dans les con¬ 
ditions suivantes : 

- MREQ , A 13. , A 14 , et (V 15 au zéro logique 

- A 9 , A 10 , A 11, et A 12 au un logique 

Il est facile de remplir ces conditions au moyen d'un 
circuit combinatoire très simple, dont le schéma est 
donné par la figure 2. 
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Figure 2: 


Shëma de principe de 
1'adaptation. 


74LS00 

+5V 



74LS30 

+5V 



ADAPTATION DU ZX81 : 


Plusieurs possibilités sont à mettre en concurrence 
pour la réalisation pratique et l'installation de ce 
montage : 

Ceux de nos lecteurs qui ne craignent pas d'interve¬ 
nir sur le circuit imprimé de leur machine pourront, 
comme nous l'avons fait nous-mêmes, réaliser un petit 
module sur circuit imprimé, sur Véroboard, ou mieux 
en mini-wrapping, et le loger sous le clavier du ZX 
où une place assez importante est disponible. Il faut 
alors couper la piste amenant le + 5V du module 16 K 
à la ligne de sélection de la RAM, par la broche 2A 
du connecteur arrière. Une fois cette modification 
achevée, il ne sera bien sûr plus possible de faire 
fonctionner la machine sans extension mémoire. 

Une autre solution consiste à intercaler le montage 
entre le bloc 16 K et le ZX81, au moyen d'un circuit 
imprimé double face muni des connecteurs adéquats. 

Il sera alors facile d'omettre la liaison alimentant 
la broche 2A, et de raccorder le montage de la figu¬ 
re 2 en parallèle sur les broches concernées (voir 
plan dans le manuel Sinclair). 

Cette seconde solution élimine toute intervention à 
l'intérieur de la machine, mais reste beaucoup plus 
lourde et coûteuse. Dans les deux cas, il ne faut pas 
oublier de prévoir l'interrupteur qui, inséré dans la 
ligne A 15, permet à l'ensemble un fonctionnement nor¬ 
mal. 


FONCTIONNEMENT DU SYSTEME : 


Lorsque l'interrupteur est en position ROM, la machi¬ 
ne utilise son générateur de caractères d'origine. 

Dans la position RAM, les routines d'impression vien¬ 
nent lire leurs données dans le boîtier de RAM "remis 
en service", et on n'obtiendra que des formes sans si¬ 
gnification, tant sur l'écran que sur l'imprimante, 
jusqu'à ce que ce nouveau générateur de caractères 
ait été rempli, au moyen d'ordres,POKE convenables. 
Seulement, expérience faite, il s'avère que seule 
l'imprimante arrive à utiliser correctement le nouveau 
générateur. Tous les efforts visant à faire utiliser 
la RAM aux routines d'affichage sur écran restent 
vains ! 

Il existe cependant une possibilité permettant à l'é¬ 
cran d'utiliser le générateur d'origine, alors que 
l'imprimante travaille avec le nouveau^ 

En effet, par suite d'un décodage simplifié des lignes 
d'adresse, on retrouve une seconde fois les 8 K octets 
de la ROM dans une zone "fantôme" comprise entre les 
adresses 8192 et 16383. 

Pour aiguiller le microprocesseur Z 80 vers cette zo¬ 
ne normalement inutilisée, il faut modifier le "vec¬ 
teur d'interruption non masquable" contenu dans le 
registre I. 

Ce registre contient normalement les huit bits les 
plus significatifs des adresses du générateur de ca¬ 
ractères, soit normalement : 

00011110 (30 en décimal) 

Si nous chargeons à la place : 

00111110 (62 en décimal), 
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la routine d'interruption chargée de la création des 
images TV utilisera le "fantôme" du générateur d'ori¬ 
gine, situé entre les adresses 15872 et 16383- 
De cette façon, écran et imprimante utiliseront deux 
générateurs de caractères absolument distincts, même 
en cas de lancement de l'ordre COPY. 

MISE EN OEUVRE PRATIQUE : 


Le programme de la figure 3 , rédigé en BASIC et lan¬ 
gage machine, permet une exploitation commode du sys¬ 
tème selon les principes qui ont été exposés. 

Les lignes 80 à 120 chargent dans la ligne 10 (que 
l'on se gardera bien d'omettre) le programme machine 
chargé de changer le contenu du registre I. 

Lors de la première exécution de ce programme, le gé¬ 
nérateur de la RAM est rempli avec les mêmes octets 
que le générateur de la ROM. Ensuite, il est proposé 
à l'utilisateur de modifier la forme des caractères 
de' son choix. Le contenu de ce générateur "personna¬ 
lisé" est systématiquement recopié dans une chaîne 
A$, afin qu'il puisse être sauvegardé sur cassette. 


Il est très important que ce programme soit chargé 
alors que l'interrupteur est placé en mode ROM, mais 
que ce dernier soit basculé sur RAM .juste avant le 
lancement par RUN , faute de quoi la RAM ne serait pas 
chargée ! 


Figure 3 


' CARACTERES A MOI4XFIE 


■N" THEN GOTO 500 
'O" THEM OOTO 150 


10 REM CARACTERES 
20 LET A$ = "" 

30 FAST 

40 FOR F=7630 TC 8191 

50 LET A$=A$+CHR® PEEf*. (F+3192 

S0 POKE F , PEEK (F+3102.' 

70 NEXT F 
30 POKE 18514,62 
30 POKE 16515,62 
100 POKE 16516,237 
110 POKE 16517,71 
120 POKE 16513,201 
130 SLOU 

140 RAND USR 16514 
142 CLS 
145 PRXNT 
R 7 O..-N" 

150 IF INKEY®= 

160 IF INKËY$= 

170 GOTO 150 
130 CLS 

190 PRINT "QUEL CARACTERE 7" 

200 INPUT C® 
o 1(3 CL.S 

220 PRINT "ENTRER LE MODELE" 

230 PRINT 
240 DIM M*(34 
250 FOR N—i TO' S 
260 INPUT M $ 

270 FOR F = 1 TO 3 

280 IF CODE M$(F)-!>0 THEN PRINT 
CHR® 128; 

290 IF CODE MS(F4=© THEN PRINT 
CHR4 3; 

300 NEXT F 

310 LET fl®(N+3*CODE C®4=CHR$ Il 
28*(CODE M®(14<404+64*(CODE HS(2 
) < >0) +32* (CODE M$ (34 •( >0-' +16* (CDD 
E M® (44 404 +8* (CODE H$ (54 ■! >04 +4* 

(CODE M® (64 < 404 +2* (CODE MS (74 -î 40 
) +(CODE MS(84 <404 4 
360 PRINT 
370 NEXT N 
380 PRINT AT 0,0;" 


390 FOR F=0 TO 100 
400 NEXT F 
410 CL5 

420 PRINT "SAUVEGARDE ALPHABET 
7 OyN" 

430 IF INKEYS="0" THEN GOTO 460 
440 IF INKEY®="N" THEN GOTO 140 
450 GOTO 430 
460 SAVE "CA3" 

470 GOTO 140 
500 FAST 

510 FOR F = 76S0 TO 8191 
520 POKE F,CODE AS(F-76794 
530 NEXT F 
540 SLO'.J 
550 CLS 

560 REM COPYRIGHT 1933 



Lorsque la machine réclamera le modèle d'un nouveau 
caractère, on lui fournira successivement les huit 
lignes de la grille, en représentant les blancs par 
des espaces, et les noirs par des points. Après l'ap¬ 
pui sur NEWLINE validant chaque nouvelle ligne entrée, 
le résultat graphique correspondant est affiché à 1' 
écran en noir sur fond gris, aux fins de vérification. 


Cette procédure est très rapide (un quart d'heure pour 
entrer les modèles des 26 lettres de l'alphabet), mais 
exige un grand soin dans la frappe de la ligne 310 du 
programme, sa pièce maîtresse. 

Au terme de la redéfinition des formes des caractères, 
on aura intérêt à demander une sauvegarde sur cassette 
lorsque cette opération sera proposée par ligne 420. 
Lors du rechargement en machine, le générateur de la 
RAM sera automatiquement rempli à partir du contenu 
de A$ (on laissera à la machine les quelques secondes 
nécessaires à cette opération avant de s'inquiéter de 
l'apathie de l'écran !). 

Lorsqu'aucune modification de caractère n'est deman¬ 
dée (réponse négative à la question de la ligne 145), 
le déroulement est dévié à ligne 500, d'où il gagne 
la fin du programme. N'importe quel programme peut 
donc être implanté à partir de la ligne 560, et être 
exécuté tout à fait normalement ; une fois son rôle 
terminé, le programme de définition de caractères se 
fait totalement oublier, au point, même, de pouvoir 
être effacé par NEW sans affecter pour cela le géné¬ 
rateur de la RAM ! 

En cas de manque de place mémoire, on pourrait donc 
remplacer la ligne 550 par un NEW éliminant totalement 
le programme désormais inutile. 


Le principal avantage de ce procédé est que le géné¬ 
rateur de caractères "personnalisés" peut servir lors 
de toutes les opérations sur imprimante, listages com¬ 
pris : la figure 5 donne quelques exemples utilisant 
des caractères spéciaux en remplacement des espaces. 


^U5iPRINT%"Cf)RRCTERESVtv«ODIFIi 
-VIS 0° ÏF^INK EY $ = '• N"’'-THEN'*GQT Qvses 

4.160^IF''INKEYÏ = “O"’«THEN'.GQTON2.60 


•V190-VPRINT^" OUELvCRRflCTEREVÎ"w. 
•'*200’vINPUT'vCü 


I #4 i3#REh#CRRRCTERES###p(Mpfr##(M^#:1Hf 
## 20 j#LET#A$ = " " 

# # 3 0 # F A ST «p m # * » » # # i* #= s= #= * m m # * * * » # & 
##40#.FOR#F=7630*T0st3191#«4*r#»(Mt» 
»»50#L ET *tfl $ =ft ® + 3HR $ *PEEK h= ( F+33.32 

=Zia=REMTYY=C5Q SUB—7TAN. ...~ 

= 40—FDR~F=7636C7r Qr5191~ .1 

~50—LET=A * =A S+ CHR ®—PEEK" (F+8192 

##'10#REM#VY#GOSUBl4'?Tflî't##(Mf:#*M4### 
»#20#LET#A$ =" " *t *t «Mb #t *t » 

#*30#FRST##############(f#######s 
5ÿ,*40#:FOR#F =7630#TOi*3:I.9:Ii*#:#:»Pi**i*»i& 
#*50#LET#A$=A*+CHR®#P££K4 CF+3S.92 

Figure 5 

L'application la plus spectaculaire est cependant il¬ 
lustrée par la figure 6 , qui montre comment toutes 
les lettres majuscules peuvent être remplacées par 
des minuscules. 


Lors du déroulement de la procédure de modification 
des caractères, il faut étudier les nouvelles formes 
sur des grilles de 8 x 8 cases, comme sur l'exemple 
de la figure 4. 


I 

Figure 
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Une sélection mondiale de 392 programmes 
pour : APPLE - ATARI - IBM - CBM -TR S- Sharp PC 
EPSON - Sinclair ZX 81 et Spectrum 
ORIC 1 - Victor Lambda 
Dragon. 
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GÉNÉRATION! 












FAITES-LUI EN VOIR DE TOUTES LES COULEURS 



Sous la dominante d’un prix sans précédent, parmi les cartes de codage 
couleur, nous vous proposons un produit de grande qualité et facile à monter, 1 à 2 fils 
à raccorder. 

Pas de langage supplémentaire ni d'espace mémoire consacré à la couleur mais par 
la fonction « PRINT » et le mode graphique, les couleurs tournent dans les 
programmes les plus simples comme dans les jeux rapides. 

Textes et couleurs simultanés. Réglages accessibles. 

Jamais l'ordinateur couleur n'a été aussi près dé nos doigts, si facile d’accès à votre budget. 
Aucune commande particulière autre que la fonction graphique et les lettres de «A» à «H» 
ces dernières, faisant désormais partie des caractères graphiques. 


ZX 81 ... il ne perd plus la mémoire! 


Carte C.MOS mémoire permanente, rétention des 
données par 2 piles normales. Extensible à 16 
K par module de 2 K. 

Dans l'esprit SINCLAIRj nous avons développé une 
interface qui a les avantages de la disquette 
(rapidité de lecture et de chargement) pour un 
coût moindre. 

Cette mémoire dispose d'espaces taillables à vos 
besoins, elle est fiable et surtout sauvegardable 
automatiquement quelques soient les aléas 
d'alimentation. Cette carte est enfichable à la 
sortie du bus SINCLAIR à l'aide d'une carte mère 
(livrée avec 2 K fixes et 2 K EPROM dont 1,5 K 
non utilisé). 

Utilisable comme générateur de caractères ou pour 
la haute résolution graphique et ceci au même 
prix. 

C. MOS est destinée à être utilisée en tant que 
mémoire de masse. Protégée par les fausses 
manoeuvres, 1'EPROM occupe l'espace 8 K / 10 K 
par blocs successifs. 

Peut fonctionner en tant que ROM supplémentaire 
sur un espace 2 K commutable par blocs. Parfait 
pour compte en banque, gestion des stocks, jeux 
sans attente. 

Une cartouche mémoire vraiment protégée, excellente 
pour la mise au point. 


MEMOIRE 
NON PERMANENTE 
(Mémoire centrale). 



MAGNETO. 
(Mémoire <ie mdfcse.'). 


CLAVIER 


( Mémoire de masse). 


Prix de vente public TTC. . . 227F 
Chaque module 2 K...72 Fttc 

Société d'Application Micro Informatique 
6, avenue du Général-Leclerc 
91160 LONGJUMEAU 
Tél. 448 40 86 
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BON DE COMMANDE 

Je soussigné. Nom _ Prénom- 

Adresse --- 


_ Code poslal_ 

désire recevoir dans les plus brefs délais (carie couleur sur stock) 
la carte couleur ou la carte mémoire pour ZX 80 ou 81. Je joinsJe 
montant total et je m'engage à régler les frais d'expédition à 
réception de ma commande. 



Nombre 

TOTAL 

Signature 

carte couleur _ 395 F TTC 
câble périlel 130 F TTC 





TOTAL 




Je règle par □ Mandat □ Chèque bancaire □ CCP 
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Vous trouverez également nos extensions : Règle à calcul • VISMO Paris 13 e • PENTA 16 • PENTA 13 • PENTA 6 • 
S1VEA Nantes • VIDEO TELEMAT REPORT • COMPOKIT • ROBIN Auxerre • MICRO LEADER Dijon 21 • PIED • 
EREL BOUTIQUE • E.S.C. Orléans • M.V.I. • MOTO VERTE Limoges • EPVS • ICV Villemoisson 91 • 











































































































